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I. ABSTRACT 

Basically, these programs are the analyses of the free or forced, 
undamped vibrations of one or two elastically-coupled lumped parameter teams. 

The whirl analysis of a rotor-bearing-casing system is facilitated by the 
assumptions that the rotor, casing, and bearing stiffness characteristics 
are axially symmetric and that the shaft executes circular orbits. Bearing 
nonlinearities, casing and rotor distributed mass and elasticity, rotor im- 
balance, forcing functions, gyroscopic moments, rotary inertia, and shear 
and flexural deformations are all included. in the system dynamics analysis. 

The analysis is based upon a lumped mass parameter model using a modi- 
fied Myklestad-Thomson transfer matrix technique. Bearings are characterized 
as springs which can have constant spring rates or load-dependent values de- 
fined by 

K = A.’P^ or a table of P vs K 

points^where A and B are constants and P is the load transmitted through the 
spring. 

All bearings have nonlinear load displacement characteristics, the solu- 
tion is achieved by iteration. Rotor imbalances allowed by such considerations 
as pilot tolerances and runouts as well as bearing clearances (allowing conical 
or cylindrical whirl) determine the forcing function magnitudes. The computer 
programs first obtain a solution wherein the bearings are treated as linear 
springs of given spring rates. Then, based upon the computed bearing reactions, 
new spring rates are predicted and another solution of the modified system is 
made. The iteration is continued until the changes to bearing spring rates and 
bearing reactions become negligibly small. 
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If the machine operating speed is near a critical speed, the magnified 
bearing reaction is of interest for comparison to the bearing capacity. The 
nonlinear treatment of the bearings by this method shows that bearing reaction 
predictions, based upon a linear representation of the bearings, can be un- 
conservative (see (b) below) . 



Bearing Spring Rate 
(a) 

Typical Load-Spring Rate 
Curve for a Roller Bearing 



Shaft Speed 
(b) 

Response Prediction Influenced 
by Bearing Representation 


These are some of the preferred types of computer programs used for the 
analysis of rolling contact supported rotors. These programs, which are fully 
described in the users manuals included with the Turbopump Shafts and Couplings 
dossier, are available from COSMIC, the University of Georgia, through the 
National Aeronautics and Space Administration. 
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II. TECHNICAL DISCUSSION 

All four programs can be summarized in a simple tabular form. They 
all compute natural frequencies, mode shapes, and the amplitudes 
of the shears, moments, slopes and deflections produced in a lumped 
parameter beam system by harmonic forces and/or moments. 


PROGRAMS 

FORCED 

VIBRATION 

FREE 

VIBRATION 

SINGLE ! 
BEAM 

DOUBLE 

BEAM 

CONSTANT 

SPRING 

NON-LINEAR 

SPRING 

' 

E13101 


X 

X 


X 


E13102 


X 


X 

X 


E13104 

X 



X 


X 

E13112 

X 


X 



X 









The method of analysis is a modified Myklestad-Thomson type and is 
described below. 

To describe the model, first consider the following beam on a 
discontinuous foundation: 

_r 

//////////////// 

k (force/unit length) 

’.ve might represent this structure for the vibration analysis as: 


N th Hay 
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We see that a typical element, which is called the N th hay in the 
above sketch, is: 



The weight of the bay, Vr , is lumped at point N. The beam lengths, 
which need not be equal, are designated 1.(1) and L(2). The associated 

t 

bending rigidities are .SI ( 1 ) and Til (2). To represent the elastic foundation 
acting on the bay, a spring constant K is utilized. Note that in this 
example K would equal Ql(1) + L(2)J k. 

Otie can see th.at the physical beam rigidities are quite well represented 
in the analysis whereas the mass distribution and elastic foundation . 
representation depend on the number of lumping stations used. 

As a second example to describe the lumped parameter model, consider 
the following two-bearing shaft with overhung rotors: 



The 1 urn nod model is: 


Bay N 
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I ) cO 2 $ = 

x 



j 10 


$ 


The value A M accounts for the rotary Inertia and gyroscopic effects 
of the mass (of prime importance for rotors). ft is shown os a j) - * Alembert 
moment. Good discussions of those effects and derivation of the above 
formula can he found in 'deferences (2), (3), and (4). The oaramot er I 

x 

is the moss moment of inertia of the mass about a diametral line and I . 

■> 

J 

is its moss polar moment of inertia. Understanding of the lumped parameter 
model is best obtained through a Knowledge of the computational formulas 
used in the program. Therefore, the .following section sets forth the theory 
and derivation of equations used in this vibration analysis. 
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2. STATE VECTOR 



y* 

L i J 


The state vector A,, is defined as the column array of the shear, 
moment, slope, and deflection in the beam at the end of bay N. The 
fifth element of the state vector is the constant one which permits 
the inclusion of the load constants in the transfer matrices. 

. 3 . MASS TRANSFER MATRIX 



f 




£ 

ML 

to 



J 


1 

0 

o (f 

»-Xy) \ Vn+X. h* 


f d 

o 

1 


0 1 M 


M„ e 

6 
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0 j o 

i 

J f 

0 

0 

o 

' j 0 



0 

0 

0 

o 1 1 j 


(j J 
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This transfer matrix symbolically represents both spans of bay M and 
for each the appropriate 3.^, EI^, ^ > an d must be used, where is the 

shear deflection coefficient as described on the following two pages. 
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SHEAR DEFiecnoM coEFPiciewr Porz seams 
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At the start, N = 0, thus, { A<? J 
Going across the first elasticity, 

{*;] » [e;]{ a.}- 

And across the first mass, 

| a ;j- [?.]{*;} = 

Next across the second elasticity. 

{a,}= •- [e1J[f,][e:j f a.)- L c ']/i-j 

In like manner, transformations can be made across each 
bay, expressing each state vector in terms of the previous 
state vector, and thus in terms of the starting vector. 

{/w„j = V L C J {a.} - L°] {&°J 

M - j 

Expanding we get, 
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The fourth order nature of the governing beam equation requires 
the specification of tv?o boundary conditions at each end. The 
program requires that two of the four variables of the state 
vector be zero a,t the beginning and at the end. Other homogeneous 
boundary conditions such as elastic restraints can be obtained 
by inputting a zero length so as to put the mass point at the 
boundary and then setting V and M equal to zero with appropriate 
lateral and/or moment springs. Likewise, concentrated end 
forces and moments can be inputted as V and T3 with the boundary 
condition that V » M = 0. 
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Let 


< 


r 

V 


f Q ' ) 

NA 

• 

> 

Qi ( 

§ 


Qs 

y 


C>4 

V 1 J 


- 1 J 


Further, let 

M = subscript of 1st zero variable at end of last bay 

N = subscript of 2nd zero variable at end of last bay 

R = subscript of 1st non-zero variable at start of 1st bay 

S = subscript of 2nd non-zero variable at start of 1st bay 

Considering the two equations associated with the zero variables at the end, 
and dropping those terms multiplied by the zero variables at the start: 



dfJO. ™ 


Qs 


These can be readily solved for Q and Q , the two unknowns at the start of 

K. b 

the beam. Thus knowing the initial state vector, all succeeding state 
vectors can be found by "walking through" the system. 


6. SOLUTION PROCEDURE FOR A SET OF NON-LINEAR SPRINGS 


The previous section described the explicit procedure for determining 
the response of an elastically supported beam to a harmonic force of moment 
input of frequency . If the beam support (for example, bearings) has a 
non-linear load-deflection relation, the secant line intersecting the curve 
is not a constant, but is instead a function of the deformation of the 


beam. 
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The elastic analysis described in the previous section 
yields an elastic spring force which is simply the product of 
the spring constant times the deformation. If this elastic force 
equals the non-linear force for the same deformation (as determined 
from the non-linear force-deformation relation as typified above) , 
then the linear spring used was the correct secant. Adjusting the 
choice of secants until this agreement is achieved for all the non- 
linear springs supporting the beam leads to the solution of the 
problem. After a given unsuccessful iteration, the initial and 
final secant values are averaged to obtain the trial spring for the 
next iteration. 

The first trial spring for the first frequency investigated must 
be input to the program. When the response to a harmonic load of 
successive frequencies is desired, the converged secant value for the 
first frequency is used as the first trial spring for the second fre- 
quency. Likewise, the converged secant value for the second frequency 
is used as the first trial spring for the third frequency. After this, 
a parabola is fitted through the three previously converged frequency 
springs, and the first trial spring for the next frequency is extrapo- 
lated along this curve. 
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7. DETERMINATION OF THE NON-LINEAR FORCE 

As described in the previous section, the forced vibration analysis 
for a set of linear springs yields deformations and associated elastic 
forces in the springs. In order to test for convergence, the non-linear 
force associated with that deformation must be determined. At present, the 
program permits two types of non-linear springs. The appropriate flag must 
be set in the input. 

a) FLAG(N) = 1. Angular Contact Ball Bearing: The pertinent 

bearing data is input after all the station data, and the 
exact load-deflection equations for ball bearings are 
utilized, including the interaction of thrust with the 
lateral response. 

g 

b) FLAG(N) - 2 . P = A y where A and B are constants input to 
the program. 

At present, roller bearing load-deflection curves are fitted by a form b) . 
However, it is easily possible to introduce a third flag alternate and 
incorporate the exact load-deflection equations for roller bearings. 

8. ANGULAR CONTACT BALL BEARINGS 

The explicit analytical load-deflection relations for angular contact 
ball bearings have been derived and are extensively treated by A. B. Jones 
of New Departure Ball Bearing Company. 

The outer race of the bearing is assumed fixed in space. The inner race 

has three degrees of freedom with respect to the fixed outer race. It may 

move axially, laterally, and may rotate. It is also capable of transmitting 

three force resultants between shaft and bearing support (i.e., lateral 

force, axial force, and moment). Each of these force resultants can be ex- 
pressed explicitly in terms of the three deformations. These functions are 
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explicit, but non-linear. Their inverse cannot be explicitly stated, 
that is, the deformations cannot be expressed in terms of the three force 
resultants, nor can mixed functions of forces and deformations be expressed 

H * f, (. Aa j 

V = h U A( i tI e) 

M " f.? ( 

The significant parts of the derivation have been reproduced on the 
following pages. The value of "K" referred to on p 22 by Jones*, and DKK 
in the program, is not computed internally by the program, though it could 
be, but is computed by IBM Job 113k. Since this number is a constant, it 
need be computed only once. Job 113k essentially programs Jones' equations 
in an iterative scheme to yield deformations as a function of input loads. 


* "New Departure - Analysis of Stresses and Deflections", Vol. 1 and 2, 


by A. B. Jones, New Departure Division, General Motors Corporation, 1946 
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I* Basic Geometric Relations, 


Tho operating characteristics of a ball, bearing depend to a great 
ortont upon the internal fitup. Internal fitup is generally mea- 
sured by the diametral clearance of the bearing. 



Fig. 1 


Fig. 1 shows a cross section through 
a radial, single row bearing. Dia- 
metral clearance is denoted by R D 
From Fig. It 

o o -o.- Za ! 

Although diametral clearance is gener- 
ally used in connection with single 
row, radial bearings, Eq, 1 is appli- 
cable to angular contact bearings as 
troll since there is a definite relation 
between diametral clearance, race curva- 
tures and free contact angle (See Eq. d? 
P. ). 

The value of P& from Eq. 1 may be posi- 
tive or negative. Loose bearings have 
positive diametral clearance. Tight bear 
ings have negative values of P D . 

Diametral clearance in looso, single 
row, radial bearings is sometimes called 
radial clearance, radial play, radial 
shake, diametral play or diametral slack- 
ness. 

For loose, single row, radial bearings 
diametral clearance may be dofinod as 
the maximum distance one race may move 
diametrallv with respect to the other 
without the application of measureable 
force when both races lie in the same 
piano. 



Raco curvature is a measure of the 
conformity of the race to the ball in 
a plane passing through the bearing 
axis and transverse to the raceway. 

It Is expressed as a percentage or a 
decimal. Throughout this text decimal 
notation will be used. 


Eq. 1 


\ 
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The curvature of* 8. race is defined as: (Seo Figo 2) 



Thus, if -the curvature and ball diameter are known, the radiua of curva- 
ture is: 




OU7~£R RACE 



The d istance between the centers of 
curv atures of two race3 in line and 
line contact with a ball is of great 
importance. This distance is indica- 
ted by O in Fig. 3 and is a fixed 
quantity depending on race radii and 
ball diameter. Denoting quantities 
referred to the outer race by the sub- 
script j 0 , and quantities referred to 

tho inner race by the subscript, • , 

ve have from Fig. 3: 


D' r C + r i-d 

Since both a«d f. may be expressed 

in terms of outer and inner race curva- 
tures, respectively, by Eq. 3, fro have* 


Fig. 3 

°‘0i */?-')*< 


Lotting: 


-0 

D’Bd 


The quantity £> in Eq. 7 is known as the total c urvature and is a mea- 
sure of the conformity of both outer and inner races to the ball. Upon 
it dopend all booring deflection computations. 


Eq. 2 
Eq. 3 


Eq. 4 

Eq. 5 
Eq. 6 
Ec.,7 
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Free contact angle is tho anglo made by a line passing through the points 
of contact of the ball and both raceways with a plane perpendicular to 
tho axi3 of tho bearing when both races are centered with respect to each 
other and one race is axially displaced with respect to the other without 
the application of measureable force. 


Ot/r&R /?/<C£ 



Fig. 4 


The centers of curvature of both outer 
and inner races lie on the line defin- 
ing the free contact angle. Free con- 
tact angle is denoted by and is 
illustrated in Fig. 4. ° 

Free contact angle is determined by dia- 
metral clearance, p , and total curva- 
ture^ , as: a 


or: 


Cos/3 = 2 3 Eq. 8 

7 ° 2Bc/ 

- 2Bc/(/-Cas/S 0 ) Eq. 9 


In the case of radially tight bearings 
the value of p 0 is negative and the 

value of cos /3 q from Eq. 8 becomes 

greater than 1. Mathematically, this 
is on imaginary condition. However, 
the value of cos ,/3 q for radially -tight 

bearings obtained from Eq. 8 is of im- 
portance in certain deflection computa- 
tions and has a definite physical sig- 
nificance. 


Therefore, radially tight bearings may be considered as having an imaginary 
contact angle whose sine is zero and whose cosine is greater than 1 as de- 
fined by Eq. 8. 


Th® effect of interference mounting fits on free contact angle is important. 
Due to the interference fit there 13 a change in diameter of tho press fit- 
ted raceway and a corresponding reduction in diametral clearance. Hence 
the free contact angle is reduced by press fitting. 
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If 3 /J, is the total reduction In diametral clearance due to press fitting 
one or both race members, the initial mounted contact angle, /S^ , isi 


Cos /? ^ + A Po 

° ~ 23d 


or: 


Cos /3* - Cos/3 y- 


Eq. 10 


Eq. 11 


For the effect of interference fits on ring dimensions see Chapter XvZT 
p. 161. 


Free endplay is the maximum possible relative axia l m ovement of inner 
race with respect to the outer, when both races are coaxially centered, 
without the application of raeasureable force. It is denoted by / => £ 


In practice, endplay Is measured under a definite gauging load and is 
known as gauged endplay.. Gauged endplay is always greater than free 
endplay because of the deflection of the bearing under the gauging load. 
See Chapter J53T, p. 152 for the relation between gauged endplay end dia- 
metral clearance. 

OUTER RACE 



Free endplay depends on total curvature 
and contact angle as shown in Fig. 5. 


3/ « 23a! S/a /f? 
or: 

S/a/3= 

° 23d 


Eq. 12 


Eq. 13 


/A/A /ER RACE 

Fig. 5 The relation between free endplay and 

diametral clearance is obtained by 
eliminating /S between Eqs. 8 and 13. 

= 23c/~\[(2Sc() Z ~ 2 Eq. 14 

= \J<r3d ,^> -^ Q z 


Eq. 15 
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II, Solid Elastic Bodies In Contact ,.. 

When two, solid, olastic, curved bodies are pressed together under 
load a certain amount of flattening occurs in tho neighoorhood of 
the contact point. Due to the flattening there "is produced on el- 
liptical pressure area over which the total load is distributed. 

The relations governing the shape and size of tho pressure^ area and 
the distribution of stress over the pressure area were mathematically 
investigated by Heinrich Hertz in 1881. Those relations show good 
agreement with test results except where the dimensions of the pro- 
jected pressure area are large in comparison to the principal radii 
of curvature of the contacting bodies. Good agreement is shown for 
conformities generally used in ball bearings. 

Although Herts’ s work was limited to an analysis of the distribution 
of stress at the pressure surface, more recent investigators have 
determined the nature and distribution of the stresses occurring 
beyond the pressure surface and have substantiated their results 
by photo-elastic tests. 




1 3oc/y a' 



Let the bodies be denoted by the sub- 
scripts "a" and "b", respectively, as 
shown in Fig. 16. Also, let the princi- 
pal radii of curvature at the contact 
point be/rkT, and for body "a n and 

and /?i> 2 for body "b". The radii of 

curvature are measured in two pianos , 1 
and 2, at right angles to one another as 
shown in Fig. 16, the subscripts 1 and 2 
referring to the respective planes. 

When body "a” and body "b' 1 are pressed 
together by the normal load, , the re- 
sulting. pressure area whose semi-axes 
are a and b is shown in Fig. 17. 

Hertz gives the dimensions of the pres- 
sure area in terms of the transcendental 
functions^ and y— , as: 




where: 




Q — - 


— ■ 

r ^ c __ 

♦ 



6 


i 


$ 


--7 


r. C 


Sq. 54 


So. 55 


Fig. . 17 - - 
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= 6j) Eq. 57 

6 Rb 

If both bodies are' of steel with modulus of elasticity 29 x 10 #/sq. in. 
and with Poisson’s ratio l/4> the value of g from nq. 55 isi 




Eq. 53 


The values of the principal radii of curvature,/?^ , Rct z , R6 / and f?6. 
are taken in accordance with Fig. 16. 


The principal radii of curvature may be either positive or negative , depend' 
ing on whether the centers of curvature lie within or without the body as 
shown in Fig. 18. 

In addition, planes 1 and 2 should be 
so chosen thatx 


t 




Fig. 18 


* -L 

Ro t Rb /Ro z Rb z 


Eq. 59 


Plane 1 then determines the direction 
of the semi-minor axis of the pressure 
area and plane 2 the direction of semi- 
major axis of the pressure area. 

The values of the functions s<( andv* 
for use in Eqs. 53 and 54 depend on 
the conformity of the contacting bodies 
in the vicinity of the pressure area as 
determined by the auxiliary angle, C . 


Cos c - 


_/. , ± 
Ra, Ra z Rb t 

.R. + J.+JL 

Ra ( Ra z Rb f 


_r 

Rb z 



Eq. 60 
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Koto that tho denominator in the expression for cos *= is the same as that 
occurring under the radical in Eq, 55 and 58. 

and ~y ‘ are related by another auxiliary angle, £ , which depends 

on the shape of the pressure ellipse. 


where i 


CCe) 

~y~ - ££(?) Cos € 

V yr 

Cose- _ZT - A 


Eq. 61 


Eq. 62 


Eq. 63 


and C (s) are the complete elliptic integrals of tho first and second 
order, having the modulus sin £ 


*(*) 

F(e) 


7T 

i; c/<p 


\\/-S/n l e Sin r ? 

?r 

z 

^/~Sin*E Sin? c/<f 


Eq. 64 


Eq. 65 


Since accurate tables of K (e) and £: (g) are not always available, values of 
K(e) and £(e) coi*rect to ten decimal places are given on Charts 5 and 6. 
Four place tables may also be found in Jahnke and Erode' s "Funktionentafeln' 1 
1943 edition. 


By assuming a series of values of the modulus, sin £ , corresponding values 
of cos xz ,/V and ~v~ may be calculated by Eqs. 61, 62 and 63, 

Values of^r computed in this manner are plotted against corresponding 
values of cos xz in Charts 7 through 21. Values of -y are plotted against 
corresponding values of cos xz in Charts 22 through 31. 

It must be emphasized that the semi-axes of the pressure ellipse, a and b, 
are the projected semi-axes and are not measured along the curvature of the 
pressure surface. 
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li V. 


- j rs 


ivribution And Deflection In Bn!'. T< 


-•.'•1:1.73 - 


Solution. 


A call boaring derives its load carrying ability from tho forces 
produced at the contact points of balls and races. These loads, 
called normal ball loads and designated by , result from tho 

elastic deformations of the contacting bodies. 



with thorn, tho original distance between race curvature centers, s3c/ , 
is increased by the normal approach of the two races. Calling the normal 


approach of the two races^^ , the distance between the displaced curva - 
ture centers is* 


D - 


T? /> 


146 


or 1 



2q. 147 


Tho relation between normal ball load and normal approach isi 





14b 
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whore the value of 


A 


-V 


is i from Ec. 14 3: 





are obtained from Chart 56. 


Eq. 149 


/f^ may be more conveniently expressed in terms of the axial deflection con- 
stant, /f , by the relation: 



3 % 


Ec. 150 


Values of may be obtained from Chart 57. See ?. 49 


In a complete ball bearing which involves a number of balls symmet 
disposed around a pitch circle, the normal load on any ball and th 
angle at which it acts may be completely determined and evaluated 
of the following relative displacements of inner end outer races. 


rically 
o contact 
in terms 



Fig. 29 


1) A relative axial displacement, /? , 

* *• v* - v * «—«>•'* -■» ^ ^ ^ ■ 

>. -W A C~.iU vUvOi A o. <_> o . 

2) A relative radial displacement,/^, 
of inner and outer races. 

3) A relative angular misalignment,*^', 
of inner and outer races. 

Fig. 29 shows these displacements. They 
are measured with reference to the rela- 
tive position of inner and cuter rings 
when all parts of the bearing are in 
symmetric, geometric contact under zero 
thrust load. 

Some of the dimensions used in the fol- 
lowing discussion are: 

The radius of the locus of the 
center of curvature of inner race: 


Sic/ CSs/5’ - Eq. 151 

< z (ft J 
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/? 0 - /?. -Set 


Eq. 152 


and are also connectod by the relations: 


/?. -/? = 3c/ Cox/3 

c o ‘ c. 


15j 


ana; 


/?.-/? =, Be/- 3* 
1 ° z 


2q. 154 


where: 


/“L = Diametral Clearer 


ce 


In order to express' the normal ball loads and operating 
developed within the bearing in terms of the relative di 
the inner race with respect to the outer, the following 


contact ang-i.es 
splacements of 
system is used. 


Tho outer race is assumed to be fixed in space while z'r.e inner race is 
allowed to move with respect to tho outer as shown ir. Fig. 29. The normal 
ball load and operating contact angle for a ball at any angle, 3 ■> measured 

around the pitch circle from the heaviest loaded ball, are obtained by 
evaluating the change in distance . between inner and cuter race curvature 
centers in terms of the displacements shown in Fig. 29. 


Fig. 30 shows the relative position of inner and outer race curvature 
center loci before displacement. The locus of the outer race curvature 
centers is a circle in space and is referred to a fixed, three dimensional 
coordinate system, X, Y, Z. • The locus of the inner race curvature centers 
is also a circle in space and is referred to the movable, three dimensional 
coordinate system 


Now, assume that the origin of the movable coordinate system 
the amounts n and J\ and misaligned the amount <^< as shown 
These displacements are those previously shewn in Fig. 29. 


is dispxacea 
in Fig. 31. 


In Fig. 31, the heaviest loaded ball lies in the X y Z plane. 7,’e are in- 
terested in the normal ball load, , and operating contact angle , /S , 

of a ball lying in the / plane. This is determined by the relative 

positions of the intersection of the two race curvature loci with tho 
plane. 
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The ciista 


nee, O , Fig. 31, between the centers of curvature of uhe inner 


and outer races after displacement and measured in the ys> plane as: 


Z) ^ Bc/^J(2/n/3 o +A *dW ( - Cos '/f -r(pos/ 3 *A'Cos </) 


v/here: 


z -4 

3d 


A- 


4 

r\ 


3d 


cf'= i*~ 
' 3d 


i-»q« Up5 
Sq. 156 
Eq. 157 
Eq. 153 


/?> A" and of being; the three displacements of inner race vrith respect to 
the outer, Fig. 29. c( is measured ir. radians , /d is the free contact 
angle of the mounted bearing before load application. 

The normal approach of the races, , is, from Eq. 147; 

** Af 


<3= Be/. 

rJ 


\ (3/n/3 g ^/h Vcf /?. CoS Y>)*+ (Cos/3 7 1 A 'Cos ’f)* — / j Eq. 35 9 


The normal ball load . /=> , is, from Eq. 143: 


/r C S J)\J(S/”/3 +A + o(W. Cos (/?)*+ (Ccsfe rf/cos <// -/ j Eq. 160 


Li. _J 

Trnere /; is uhe normal deflection constant from Eq. 149. 

A/ 

The normal ball load nay be more conveniently expressed in terms of uh<= 
axial deflection constant, /^, as: 


! ) ■ — J S. 

P 0 =/<c/%j(3 / n / C ,+/>’*//?. Cos p) Z +(Cos/S .-A'Cos^f _/! 

11 1 


-> « / - 
i.Oj 


7axu:;i of /f" may be obtained from Chart 57. 
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The operating contact angle /t, of 


V.,C<iC/\A -4. « 1 


x'f 


.yi.c~.Ci J. v 


C/PyC 


dfv /7 /S -r A> -r C'f /it' 


sJfs/n/ 3 ^ i- n 'r>. Cos p^+fCos/S //' ' </y ' 


onCos/3 - 


Co s /3„ A: Co -s 


\jAS/r?C Q * Aj tGf'Ci - Costp) 2 s^Cos/A^ +A\'Cos C PJ 2 

If the normal ball load, , which acme at the contact angle /? (alor 

the lino /p in Fig. r 31) is projected onto the X ~ plane in Fig. 31, it 
nay be resolved into two components. One is a ohrust force, X/, paraile 
to the p< axis. The other is a vertical component, \z, parallel to the 
2f ■ axis. 

The thrust component,//, is: 




Sq. 163 


/"/ — /^ /i 


/ 


nq. uez. 


or 


„ Xi 


^ ^K 3 " 7 / 3 ^^ +4 C- Cos </>)*+ (Co£/3+ A Cos p) 2 - /J £ (sth/l 7 A Cos <f) ' .* . ■ 

- ■ • - • — — .. 2 ^ ‘ / «1»C 4 -L w>» 

\j(S//7/3 o */? /c{ C 6/a; ^ ^(Ccs/'J M Cos <p) Z 


The vertical component, '/, is: 


+n W'A? ( -Cos <p) *(&5/3 +ACos p) z -/J (Cos /3 o +/? 'CosPj Cos p 

\T(C/n/3 o // 6*5 vf'fCoo/C/A'Cos <p) Z 

i* ^ is assumed ^hat tno pi ten circno radius aces non aworociably change 
during the deformations, the moment of tno thrust component abouu an axis 
through the center of the pitch circle and parallel to the V' axis in 
Fig. 31 is: / 


\/= P Q Cos /C Cos <f 


or 


F-7I*+ 


— »C • 


_ . - in 

/ 


/p ur 


ft/— C° rr. ^C/r//3 C^oS 

* £ * 


£~— t..O p^b L/C.. 1‘J cl Zfc. C.7.. 0 *t» Cl* » 
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£Xcf Z \$5/h/3 a +6 '+cf Cos vf+fe>s/3 +A'c±s *>' (s/n/5, C 7 scf W; Co stJCv^ m 

fV 2 j 

JC- 5 j< 0 / 3 o t/; *c{ /?; Co.-> ^/Cbs /I t/c'CoS y ?) 2 

In order that the bearing ba in equilibria:.', after displacement, the fol- 
lowing conditions must be satisfied: 


" L -V ~ 3 /: 

\jS/n/3 o -t/} fct'/R; CoS yf '+(Cos/2 o */(Cos ^ (S/h/3 o +/?'+cfat Cos </) 


r <7 A 


/(•3/s?/3 o t-h +c{ ft; Cos (p) Z f(Cos/3 a y-A'Cos if ) ' 




2V=KcT) '^' 5/r7/6 ° ^ CoS C CoS C n 'Cos W~-/! Z (&zs/3 et + /c'CoSi <?) Co Stp YI1 

/ '/?; Cos (/>) 2 i-(CoS /3 o r A ' Coo if) 2 


V r~j 1 — i^r 

rfc/\ ' sC /n C */? s-f'C?/ Cos f) e + (Cos/3 o +/{ CoS <J>) "'- /I ‘(Sfh/S^ +/? -rf £?,- Cs -/fCs '/ y q _ -^(2 
^ / \f (3/n/3 o *// '+cf '/? ( Cos <p) z + (Co/? * a" "Co Sty 2 


7/her© 2/i and Jgy are respectively the thrust and radial c o.~ po Zi 6 n Xf s 
of the oxternally applied load and the aonent cf the external load 
about the center of the pitch circle. The in ties right hand sides 
of the abovo equations indicates that the computations .must be performed 
for each ball position in the' bearing and the sun taken. 

The equations of equilibrium, Eqs. 170, 171, and 172, above, are statically 
indeterminate; that is, a direct solution for the displacements in terns 
of the externally applied load is not possible without further reduction 
of the equations. 
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III. NERVA APPLICATION 

The E13101 computer program was originally used for parametric 
analysis of various models. If the rotating mass is less than 1/10 
of the stationary mass of the pump, the natural frequency predictions 
will be within 5%, if the bearing spring rate is properly modified for 
housing support flexibility. Once the model is selected one can use 
E13112, where the bearing spring rate can be varied due to preload on 
the bearing, and the bearing load can be calculated at operating speed. 
E13102 can be utilized for parametric studies of light housings where the 
rotating mass is greater than 1/10 of the stationary mass. The final 
analysis should be performed using E13104 which is the most expensive, but 
the most accurate program. The bearing program that is attached to this 
program E13112 is old, and a better and a newer version of R. B. Jones 
program should be used. The spring rate should be input in the K = A(P) 
form. 

Once the model is built one should run the non-rotating vibration test 
and compare the results to the output from the computer run of the same 
model, only omitting gyroscopic effects. If these results are close, then 
the operational predictions will also be close. 
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Example: 

Figure 3-1 presents the critical frequencies versus bearing spring 
rate for the dual beam on spring support model. 

Figures 3-2 through 3-7 present the associated normalized mode shapes 
for frequencies presented in Figure 3-1. 

Based on these figures the following can be concluded. The first 
two frequencies are primarily housing modes and are below the possible 
operating speed. The third and fourth critical frequencies are bearing 
related rotor critical speeds. The fifth frequency is a coupled rotor 
housing mode and the sixth frequency is primarily the classical rotor 
bending critical speed. 

Table 3.1 presents a comparison of the rotor only model that was used 
for preliminary evaluation and dual beam model used for the final analysis. 
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TABLE 3.1 


COMPARISON OF CRITICAL SPEED PREDICTIONS 


E13101 

ROTOR 
ONLY- MODEL 

40210 

41810 

58720 


E13104 

DUAL 

BEAM MODEL 
2360* 
3420* 
38060 
42480 
.48470** 
58420 


* Denotes frequencies that are primarily mount related and 
do not produce bearing loading. 

** Denotes frequencies that are coupled motor housing mode 
shapes and do produce bearing loading. 



m. 
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lllOlOl, "B" change Titanium Rotor 
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I. INTRODUCTION 

El 3101, a 360 FORTRAN program, replaces 11+009 without changes 
in logic. 

A. Problem to be Solved 

The purpose of this program is to compute the natural modes 
and frequencies set up in a uniform shaft rotating at a constant 
speed. Studies can be made of shaft performance at various 
speeds. 

B. Initial Information 

Geometrical and mechanical properties of the shaft are 
provided. 

C. Problem Solution 

This program solves for the Eigenvalues of a 1+ x 1+ matrix 
using the Frequency Iteration Method, 

D. Restrictions 

The number of stations must not exceed 50, 

PROBLEM SOLUTION 

(v) 

' i! ’ || 


II. 



io 


A Hc\ 


Compute 


:e] r = 


CE], 


[F] 


1 

*1 

*2 

"1 

sar 


c ih 


GET, 


2 

£ 2 

eh; 


v 2 

gs: 


V 2 


i 

0 

0 

0 


0 

1 

0 

0 


0 

1 

*1 

El, 


0 

1 


ETJ 


tet* 


0 0 

o o 


5 

g 


o 

0 

1 




0 

0 

0 


2 

co 


1 

0 


0 

1 


[ni ° tal aL [Fl [El nH 


[D] for successive values of co 




= 0 


until 




! 


{A} = { 

j 

V 1 ) 
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[EllL ^1 ^1R {A} 0 


^nL £ F U E W A >n-l 


111 * input/ output 

A. Input Format 

1. See sample input sheets. 

2. Input Instructions 
CARD Is 

Columns 1-70 Hay be used for case identification, 
or may be left blank, as desired. 

71-72 Contain the number of stations. A 

right adjusted integer not to exceed 
50. 

CARD 2: 

Columns 1-2 Contain the number of modes desired 

from this run; a right adjusted integer. 

3 - 114 . Contain the value of the trail mode in 
floating point format, (see note below). 

15-26 Contain the value of the step size 
(Ao>), in floating point format, 

29 Contain 1 »if p “ 1.0 

2 &if I • 1.0 

32 Contain value of the subscript m. 

35 Contain value of the subscript n, 

33 Contain value of the subscript r, 

ill Contain value of the subscript s. 



Columns 1-12 


13-21; 

25-36 

37-U8 

U9-60 

61-72 


Conuain 

the 

value 

of 

^x 

Contain 

the 

value 

of 

X 2 

Contain 

the 

value 

of 

El. 

Contain 

the 

value 

of 

El 

Contain 

the 

value 

of 

G 1 

Contain 

the 

value 

of 

G 2 


CARD h: 

Columns 1-12 
13-21; 
25-36 
37— U8 
U9-60 
61-72 


Contain the value 
Contain the value 
Contain the value 
Contain the value 
Contain the value 
Contain the value 


of C r 
of C 2 . 
of I_. 
of I x . 
of W N . 

of V 


Cards 3 and I;, 5 and 6, etc., are taken in pairs; one 
pair for each station, and are all floating point 
numbers identical in format. 


NOTE ; Floating Point Format: A number of the form 

+XXXXXXXS + XX with the decimal point assumed 

p 

immediately to the right of the sign. The sign 
position may be left blank if the number is 
positive . 

B. Output Format 

1. See sample output sheet. 


C . Restrictions 


1. The number of stations must not exceed 50. 

D. Timing 

1. Running time is largely a function of the number of statio 
and the number of xteratxons required for convergence but 
should not exceed 0.5 minuuc per root. 


CAUTION : 


Values for should be carefully chosen. L 
cause overflow which will lead to erroneous 


-arge values 
results. 



'3 


--ion Analysis 


?ace i> of 

74. G.CJ3 nO.uj.7i 


ADDENDUM 


This addendum documents changes to the input Tor Program E13101. 

Card k K (Moment spring constant in units of lbs*in/’rad) 

must be input at the former location of I T # 

V 


I^-Ij must be input at the former location 


of I,, 


Cards 3 & h A repeating- card option has been added in 

columns 73-70 If the data at succeeding stations 
is identical the number of stations can be punched 
in columns 73~7k (right-adjust integer format) and 
the card will be repeatedly read and the data 
stored in locations corresponding to consecutive 
stations . 
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SUPPI1KENT 


NOTE: The modification described in this supplement supercedes and obsoletes 

Program ll>029« Program li|029 is now included in Program S13101. 

I. INTRODUCTION 

This report describes a modification to Program E13101 which 
allows the user to specify optional sets of input data. 


II. PROGRAM MODIFICATION 

The essential feature of the modification is the addition of 
SUBROUTINE C0NVER. Heretofore input data consisted of incremental 
shaft lengths (A L s Lp L 2 )> stiffness (EI^EI^, shear modulus 
(G-^Gg), geometric terms (C-^jCg)# inertial term (Ij-I^)* weight term 
(Wjj), moment spring constant (K^) and the bearing spring rate constant 
(K,.) . C0NVER, computes these data from a set of input consisting of 
hlj %> Rji P» E, (Ij)^ Md E n> where: 


1 . 


AL 

R o 

h 

P 

T? 


^EFF 


K N 

AW X 

K <P 


ra Incremental shaft length (inchos) 

a Outer radius of shaft (inches) 

** Inner radius of shaft (inches) 

0 Density of shaft (lbs/in^) 

2 

Q Young’s modulus (lbs/in ) 

2 

= Effective rotatory inertia (lb»in»sec ) * L -I 

A J 

*» Bearing spring rate constant (lbs/in) 
c Weight term for cantilevered shafts (lbs) 

H Moment spring constant (lbs«in/rad) 


This is accomplished by solution of the following equations: 
A - Rj/Rq , AA = u(R^-£) 

B t = .39[(1+A+A 2 )/(1+A 2 )J 2 + ,73(.3*A) A .3 


b_ » .89.;.;i+a+a 2 )/(i+a 2 )j 2 


A > .3 
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2. °i = c 2 = B / AA 

3. = Lg = AL/2 

k. W N - pALk(Rq-P^) + AW l 


$. EI X » ECg » En(R^+:^)A 

6. ^ G 2 = E/2 (1+v ) where v a .3 


III. INPUT 

A. CARS 1 

Columns 1-72 Identical to that described in E13101. 

73-7U Optional input flag. 

If the input data is in the form described in References 
1 and 2, leave columns 73-71 blank. 

If the input data is in the modified foim, place an 
integer "1" in column 74. 

B. CARD 2 7 

Identical to that described in E13101. 

C. CARD 3 

If Card 1, Column Ih, is blank, then the input for Card 
3 is identical to that described in 213101. 

If the optional input is desired (i.e., Card 1, Column 
71=1), then the format is (See Section II for symbol definitions ) 




Columns 1-9 AL 
i.O“lb it 

0 

19-27 H-,. 

23-36 p 
37-U5 E 
Ii6-5U 
55-63 ^ 

6U-72 aw t 
73-80 K 

y 

The input format for the parameters AL to AVL is: 

+XXXXEi>lX 

The format for the variable K is: 

<f> 

+XXXXE+X 

Decimals are assumed immediately to the right of the sign. 
D. Remaining Cards 

If the optional input is deal red, a card identical to 
Card 3 must be input for each of the stations specified on 
Card 1. 


IV. OUTPUT 

The output format is identical to that described in Reference 1. 
Changes in the output parameters are noted below: 

(l.),, T<r , is output under tho heading J. 

u r 

V/,. is output under tho heading W. 

n 

Kj. is output under tho heading K(Y) 

:fflSTRICTIOXS 

The program is limited to materials having a Poisson's ratio of 
0.3* Other restrictions are noted in 113101. 


V 



CUSTO«£» IHWftuCriGni 


- P *C€ S PSCfltCO 
0 '» o, f •• 3. u V, S «i ] 

• «o.i tod in pairs for each station • 

-'oo* din/; stations ia identical, the nuntor of 
.♦.••I in cclunjirj 73-7*: (right adjusted integer) 
p ^oatedly rea l a.vj the data stored in 
■i-'Wr to contocdtivo stations. 
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(3 CTL IJN=E13101 


OR ASG X=AN4149 

AN4149 ASSIGNED UNIT 2 


ON HDG 


DATE 25 APR 72 ' 'PAGE 1 

_25 APR 72 ___14:46:no.459 

25 APR 72 14:46:09.459 


25 APR 72 14:46:09.540 


25 APR 72 14:46: 09.553 



XQT CUR 


PEF X 

IN X ' 

END OF FILE — UNIT X 


LIST 1 



!0 ELT 

AERO/STEVE# 1 

f 710407 1 

52140 



0C0031 

- - ■ 

TASK 

3 14029 

CHECK CASE' 

6-17-66 

00C002 

1 

0 . 

50. 

2 12 

3 4 

000003 

.68 

.73 

.56 

.285 

29.E+06 

OGOOG4 

.16 

a 78 

.48 

.285 

29.E+06 

000005 

2.06 

.80 

.30 

.285 

2°.E+06 

000006 

1.14 

.90 

.0 

• 285 

29. £+06 

000007 

.42 

1.40 

.0 

.285 

29.E+06 

OCGOC8 

1.56 

1.50 

.40 

.285 

29.E+06 

000009 

.42 

1.40 

.75 

.285 

29.E+06 

000010 

.72 

1.10 

.75 

.285 

29.E+06 

000011 

1.10 

1.10 

.75 

.285 

29.E+06 

000012 

.25 

1 a 30 

.75 

.285 

2 9 9 £ + 0 6 

010013 

o 48 

1.50 

1.00 

.265 

29oE+06 

000014 

.18 

1.50 

1.0 

.285 

29.E+06 

000015 

.68 

1.50 

1.0 

.285 

29.E+06 

000C16 

.74 

1.50 

1.0 

.285 

29.E+06 

000017 

.65 

1.50 

1.0 

.285 

29.E+06 


i 


15 1 

3.5E+06 


4.5E+06 

8.1 

7.8 



id ELT CONVERT '710407. 52141 


C00001 
003002 
000003 
000004 
000005 
0 0 C 0 0 5 
00U007 
000008 
000009 
0 JCCiO 
000011 
000012 
000013 
000014 
000015 
0 0 0 0 1 a 

OwOOX7 
000018 
000019 
000020 
000021 
000022 
000023 
u 00024 
0 JU 025 
000026 
000027 
000028 
O0 0029 
000030 
000031 


SUBROUTINE CONVER (NSTA » 0C2 > DC 1 > OKN . DL2 . OL 1 . OWN", D I X » DE 1 2 » DE 1 1 »' 0G2 » 
1DG1.DIJ.*) 

IMPLICIT REAL*8 (A-H.O-Z) _ _ 

DIMENSION DC2 ( 50 ) > DC 1 ( 50 ) * OKN ( 50 ) » Dl.2 ( 50 ) . (>L1 ( 50 1 t OWN ( 50 ) #DIX (50 1 i 
IDE 12 (50) * DEI 1(50) »DG2(50) »DG1<50) .DIJ<50) 

___PI = 3.141592653589793 

DO 50 N=1»NSTA 

READ (5.10) DELTAL.RO. RI . RHO « E > EFFI J» AIKN> DLTAWL . AKPHI 

10 FORMAT ( 8E9o 4 c E8 o 4 )__ 

Rl-R0-*2+RI«*2 

R2=R0«*2-RI**2 

D=R1/R2 

a=rx/ro 

A A=t J I vR2 

B = 0 « 8888888888888889# ((1. 00+ (.1 • ODO+A 1 ».0D0+A**2 ) ) **2 

lFCA.GT.0.3D0)GOTO20 
B = B+ 0 • 7333333333333333* ( 0.3D0-A) 

20 DC 2 (N) =3/ A A . 

DC 1 ( N ) =DC2 ( N ) 

DKN(M)=AIKN 
DL2(N)=0ELTAL/2.0D0 
OL1 (N)=DL2(N) 

DV. : N(N)=RH0*DELTAL*R2*PI+0LTAWL 

DIJ(M)=AKPHI 

OIX(N)=EFFIJ 

DEI2(N)=£*PI#0.25D0*Rl*R2 
DEU (N)=DEI2(N) 

DC2(N)=0.3846154D0*E 
50 DG1(N)=DG2(N) 

RETURN 14 _ 

END 


00002040 

00002050 

00002060 

000O2O70 

00002080 

00002090 

00002100 

00002110 

00002.120 

00002130 

00002)40 

00002150 

00002160 

00002170 

00002180 

000021^0 

00002200 

00002210 

00002220 

00002230 

00002240 

00002250 

00002260 

00002270 

00002280 

000022 Q 0 

00002300 

00002310 

00002320 

00002340 



to ELT MAIN. 1 , 710507 > 61552 


000001 
0C0002 
000003 
UC0004 
000005 
0C0C06 
000007 
000003 
0CC0C9 
000010 
000011 
c o o r 1 2 

000013 
000014 
000015 
000C16 
0C0017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
OCOO20 
G 00029 
000030 
000031 
000032 
000033 
000034 
000035 
000035 
000037 
00003S 
000039 
000040 
C0G041 
C00042 
000043 
000044 
000045 
C 0 0 0 4 6 
000047 
000046 
000049 
000050 
C00051 
000052 
000053 
000054 
000055 
00005S 


C 

C 


JOB 14009 


VIBRATION ANALYSIS 


IMPLICIT REAL*8 (A-H.O-Z) 

DIMENSION TITLE! 12) 

DIMENSION DLH50) .DL2(50) .DEI1(50> »DEI2(50) 
1) .DC2(50) »DI J(50) »DIX(50) »DWN<50) »DKN(50) .E 
2AMATRX ( 4 f 4 ) » BMATRX (4.4) . CMATRX ( 4 . 4) . FMATRX ( 
3(4.1) » NREP (2) 

COMMON DL 1 . DL2 . DE 1 1 . DE 1 2 ? DG 1 . DG2 , DC 1 , DC 2 . 0 1 
1 E2MTRX . AMATRX t BMATRX . CMATRX » FMATRX . DLMTRX. 

1 FORMAT ( 1 1 A6 » A4 > 212 . LI ) 

2 FORMAT ( I2.2D12.7»SI3»29X»I2) 

3 FORMAT (74H1 

1 VIBRATION ANALYSIS///) 


00000000 
ooonnoio 
00000020 
00000040 

.DG1 (50) >DG2( 50) . DC 1(500000 0050 
1MTRX ( 4 » 4 ) > E2MTRX( 4* 4) . 00000060 
4r 4 ) . DLMTRX (4*1) .SHMTRX0000007C 

00000080 

J.DIX.DWN.DKN.ElMTRX, 

SHMTRX . SUMG » 0M6S0 


(6E12.7) 

( 36H 100 

(1H ) 

( 1 4 H 0 END 
(60H0 


4 FORMAT 

5 FORMAT 

6 FORMAT 

7 FORMAT 

8 FORMAT 
IGA = E15.8///) 

9 FORMAT ( 35H0 
1 E15.8) 

10 FORMAT ( 15H 
1 E15.8.14H 


ITERATIONS AND NO ROOTS FOJND > 
OF CASE ) 


E15.8.14H 


00000090 
00000100 
00000110 
00000120 
JOB E13101 00000130 
00000140 
00000150 
00000160 

00000170 

00000180 

OMEOOOOOIRO 

00000200 

OMEGA = E15.8.12H DETERM =00000210 

000O0220 

E15.8.14H 00000230 

00000240 


LOGICAL D1JFLG 

11 FORMAT ( 110H V M 

1 PHI Y) 

22 FORMAT ( 6 ( 6H El 5. 8)) 

101 FORMAT (1H .8X.11A6.A4.4X2GHNUMBER OF STATIONS 12 ) 

102 FORMAT ( 1H0 . 92X26HKK M N R S SKIP ) 

103 FORMAT (1H » 4X 16HNUMBER OF MODES 12. 5X1 3HTR>;aL OMEGA E15.8. 

1 5X.13HDELTA OMEGA El 5 . 8 . 3X51 3 » 8X12 ) 

4098 FORMAT (1H1) 

4097 FORMAT (1H ) 


00000250 

00000260 

00000270 

00000200 

000002.90 

00O00300 

00000310 

00000320 

00000330 


C 

C DIJ = K ( PHI ) 

C DIX = I ( X ) - I(J) 

C 


00000340 

0C000350 

00000360 

00000370 


C PROGRAM STARTS HERE INPUT HEADER AND NUMBER OF STATIONS 

C 

PI2 = 6.283185307179586 

30 READ (5.1. END=1 000 ) TITLE . NSTA . INFLAG . DIJFLO. 

C 

C INPUT NUMBER OF ROOTS DESIRED » TRIAL ROOT. STEP SIZE. AND SUBSCRIPTS 
C 

READ (5.2) NOMODE. TROMGA.OELOKG.KK .KM.KN.KR: K5.LSKIP 
C 

C PRINT TITLE 
C 

WRITE (6.4098) 

LINE=1 

DO 555 11=1. LSK IP 
WRITE (6.4097) 

555 LINE=LINE+1 


00000380 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000470 

00000480 

00000490 

00000500 

00000510 

00000520 

00000530 

00000540 



;j.iijC57 
C30C58 
CG0C59 
OCOOoO 
0011061 
0 0 C 062 
000063 
000064 
000065 
000066 
O0CO67 
C00068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
0 0 C 0 7 6 
000077 
000070 
00C079 
Q DC 030 
000081 
000 032 
00 00 83 
00 00 34 
00C035 
000 036 
000087 
000036 
00 0 039 
000090 
0 0 0 0 9 1 
00CC92 
000093 
000094 
000095 
000096 
000097 
000098 
000099 

occ: oo 
000101 
000102 
000103 
000104 
000105 
0 00 106 
000107 

oouioa 

0CC109 

0G0110 

000111 

000112 

000113 

000114 

0C0115 

000116 


WRITE (6.3) 
LINE=LINE+3 


PRINT HEADER AND NUMBER OF STATIONS 


WRITE (fcrlOl) TITLE > NSTA 


00000550 
00000560 
00000570 
00000580 ___ 
00000590 ’ 
00000600 
00000610 
00000620 
00000630 

00000640 

00000650 
00000660 
00000670 __ 
00000680 
00000690 

00000700 __ 

00000730 

DO 50 N=1 f NSTA C0000720 

L CALL REPEAT ( DL1 (N-l) pDLi(N) (DL2<N-1) ,DL2(U) , DEI 1 ( N-l ) * DEI1 ( N> (DET200000730 
l(N-l) fDEI2<N) > D61 (N-l > .DGKN) *DG2(N-1) t OG2 ( N ) (NREP(l) > 00 00074 0 

50 CALL REPEAT (DCK N-l ) »0C1 (N) »DC2(N-i) .OC2(M) (DIJ(N-l) (OIJ(N) f DIX (M-00000760 


PRINT SUBSCRIPTS CARD 

WRITE (6(102) _ _ 

WRITE (6*103) NOMODE»fROMGA#DEL6MG*l<K»KM»i:N»KR»KS.LSKl"P 
LINE=LINE+4 

IF (INFLAG. EG. 1) CALL CONVER ( NST A * DC 2 » DC 1 ■ DKN * 0L2 * DL 1 # OWN » D I X »_ 
1 DEI2»DEIl»DG2fDGlfDlJpSl00) 

INPUT REMAINING DATA 


11) * C I X ( N ) * D W N i N -.1 )j D W N ( N ). t D K N l N -J.) _ * D K N (. N ) >NREP.(2)> 


C 

C PRINT STATION DATA 
C 

100 


00000760. 

00000770 

000007R0 

00000790 


KCPHI) J 


CALL STAOUT (DLlfDL2*DEIl*DEI2»DGl»DG2#lfl > 36HL ( 1 ) LLC2) EI(1) EI( 
12) G ( 1 ) G (2) *NSTA ?LINE*LSKIP) 

CALL STAOUT ( DC ltDC2»DlJrDIX» OWN * JOHN* l_t 1 » 36HC (_1 ) _ C(2) 

1 W K(Y) * NSTA (LINE* LSK IP) 

TM0D£=TR0M6A*PI2 

DELM0D=DEL0KG*P_I2 

INITIALIZE El* E2 > AND F MATRICES 


DO 51 1=1*4 
DO 51 J=l*4 
I F ( I- J ) 55 * 56 * 55 
56 ElMTRX ( I » J) =1 . 0D0 
E2MTRX(I(J)=1»0D0 

FMATRX(I>J)=1,0D0 

GO TO 51 

55 ElMTRX (I ,J)=O.ODO 

E2MTRX(I#J)=0.000 . 

FMATRXU* J)=0.0D0 
51 CONTINUE 

OMGWRX=TMODE-DELMOD 

DO 95 MM=1( NOMODE 

DELOMG=DELMOD 

OMGWRK=OMGWRK+OELOMG 

EE = 2.0D-12 

NCNTRL=0 

CALL ROOT (50) 

1050 CONTINUE 

IF (NCNTRL-1 00 >83(822(822 
83 NCNTRL=NCNTRL+1 
DO 58 1=1(4 
DO 58 J=1 ( 4 
IF ( I -J ) 53 ( 54 ? 53 
54 CMATRX ( I ( J) =1 .DO 
GO TO 58 


00000840 

00000850 

00000860 

00000870 

00000880 

00000890 

00000900 

00000910 

00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

00001020 

00001030 

00001040 

00001050 

00001060 

A 

00001070 

onooiopo 

000010°0 

00001100 

00001110 

00001120 

00001130 


♦ NEW 



7 


000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
CC0125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000133 
000136 
000X37 
000138 
000139 
000140 
000141 
000142 
0001.43 
000144 
000145 
00014& 
000147 
000148 
000149 
000150 
C0C151 
000152 
000153 
000154 
000155 
000156 
000157 
000153 
000159 
000160 
300161 
000162 
000163 
0 CO 164 
000165 
000166 
000167 
000188 
000159 
000170 
000171 
000172 
000173 
000174 
000175 
3 C 0 1 7 6 


53 CMATRX(I.J)=0.D0 

58 CONTINUE 

OMGSG=OMGWRK*OMGWRK 
SUMG=OMGSG>/386.04D0 
DO 69 N=1 . NST A 
CALL MATELM ( N » D I JFLG ) 

CALL MATMPY (E1MTRX .CMATRX . AMATRX . 4 » 4 . 4 . 4 . 4) 

CALL MATMP Y ( E2.MTRX . FMATRX . BMATRX .4. 4.4.4* 4) 

CALL MATMPY ( BMATRX * AMATRX . CMATRX .4.4.4.4.4J 
69 CONTINUE 

DETNOW=CMATRX ( KM .KR)*CMATRX< KN .KS> -CMATRX (KM. KS) *CMATRX (KN . KR ) 
0MGPRT=0MGWRK/PI2 

IF(LINE-(80-LSKIP) >558.556.556 _ . 

556 WRITE (6.4098) 

LINE=1 

DO 557 II=i.LSKIP _ 

WRITE (6.4097) ' 

557 LINE=LINE+1 

558 WRITE (6 >9) OMGPRT »DETNOW 

LlHE=LINE+2 

CALL ROOTS ( OMGWRK . DELOMG . OETNOW . EE . KKK ) 

IF (.FALSE.) GO TO 1050 _ .. . . 

IF (KKK) 822 >82c822 
822 WRITE (6.5) 

GO TO 30 _ . 

82DLMTRX(1>1>=0.0d6 
DLMTRX ( 2. 1>=0,0D0 

DLMTRX ( 3( 1 ) =0 . 0D0 . .... _ 

‘DLMTRX(4(1 >=0,000 
IF(KK-1)666(666(667 

666 DLMTRX (KR » 1 ) =-CMATRX ( KM > KS ) /CMATRX (KM »KR ) _ 

DLMTRX (KSfl)=1.0D0 

GO TO ft 6 8 

667 DLMTRX(KRd)=1.0D0 __ _ _ .... 

DLMTRX ( KS.1)=-CMATRX (KM. KR) /CMATRX (KM. KS) 

0MGPRT=0MGWRK/PI2 

668 WRITE (6.8) OMGPRT _ 

WRITE (6dl) 

WRITE (6(6) 

WRITE (6d0) (. DLMTRX(II.l) (11=1.4 ) 

WRITE (6 to) 

LCTRr.0 

DO 95 N=i 1 NST A .. . . 

LCTRrLCTR+1 

CALL MATELM(N.DIJFLG) 

CALL MATMPY (E2MTRX c FMATRX . AMATRX . 4 > 4 . 4 .4 * 4) . .. 

CALL MATMPY ( AMATRX.E1MTRX . BMATRX . 4*4. 4 . 4 » 4) 

CALL MATMPY (BMATRX .DLMTRX , SHMTRX * 4 .4 . 4. 4. 1 ) 

WRITE (6.10) ( SHMTRX ( II r 1 ) .11=1.4 ) 

DLMTRX (1.1) rSHMTRX (1.1) 

DLMTRX (2.1) =SHMTRX (2.1) 

DLMTRX (3.1 ) =SHMTRX (3.1) _ _ . . 

DLMTRX (4. 1>=SHMTRX(4.1) 

IF (LCTR-5) 95. 94* 94 

94 LCTR=0 

WRITE (6.6) 

95 CONTINUE 

WRITE (6.7) . . . „ 

GO TO 30 
1000 STOP 


00001140 
00001190 
00001160 
00001170 
00001 180 
00001190 
00001200 
00001210 
00001220 
00001230 
00001240 
00001250 
00001260 
00001270 
00001280 
000012°0 
00001300 
00001310 
00001320 
00001330 
00001340 

♦NEW 

00001350 
00001360 
00001370 
00001380 
00001390 
00001400 
00001410 
00001420 
00001430 
00001440 
00001450 
00001460 
00001470 
00001480 
00001490 
00001500 
00001510 
00001520 
00001530 
00901540 
00001550 
00001560 
00001570 
00001580 
00001590 
00001600 
00001610 
00001620 
00001630 
00001640 
00001650 
00001660 
00001670 
00001680 
00001690 
00001700 
00001710 
00001720 






id ELI MATELM* 1 * 710407 * 52145 


000001 
000002 
000003 
000304 
000005 
C0C006 
000007 
00000S 
000009 
OOCOIO 
000011 
000012 
0C0013 
000914 
0 C C 0 1 5 
00 CO 16 
000017 
000018 
00C019 
000020 
000021 
000022 
000023 
000024 
000025 
000025 
000027 
COO 023 
000029 
00C030 


SUBROUTINE MATELM ( N » DIJFLG ) 00001740 

IMPLICIT REAL*8 (A-H»0-Z) 00001750 

LOGICAL DIJFLG 00001760 

DIMENSION DL1(50) #DL2(50) * DEI 1 < 50 ) * DEI2 ( 50 > , OG1 ( 50 ) *DG2<50) > DC 1 (5000001770 
1) »DC2(50) »DIJ(50) >DIX<50) »DWN(50) * DKN < 50 ) * E1MTRX (4* 4) * E2MTRX (4 > 4) > 00001780 
2AMATRX (4*4) *BMATRX (4*4) *CMATRX<4*4) * FMATRX ( 4 * 4 ) * DLMTRX ( 4 * 1 ) * SHMTRXOOOO 1790 


3(4*1) 

COMMON DL1*DL2*DEI1*DEI2*DG1* DG2* DC1 * DC2* DI J*DIX *DWN* DKN*ElMTRX * 
1 E2MTRX > AMATRX » BMATRX * CM ATRX * FMATRX * DLMTRX* SHMTRX* SUMG* OMGSQ 


61 £1MTRX(2*1)=DL1(N) 

E2MTRX(2* 1)=DL2(N) 

62 E1MTRX<4*2)=0.500*DL1<N)*DL1(N)/DEI1(N) 
E2MTRX(4r2)=0.5D0*DL2<N)*DL2(N>/DEI2<N) 

63 tlMTRX(3. 1)=-E1MTRX(4* 2) 

E2MTRX (3*1) S-E2MTRX ( 4 » 2 ) 

64 ElNTRX ( 3 ► 2 i s-OL). (N) /DEI 1 (N) 

E2MTRX (3*2)=-DL2(N)/DEI2(N) 

65 E1MTRX(4»1)=(DL1(N)*( (DL1(N)*DL1(N))/(6.D0*DEH(N) >-DCKN)/DGl<N) >00001910 

1) 00001920 

E2MTRX (4* 1)=<DL2(N>*< (DL2(N)*DL2{N) >/(6.D0*DEl2<N) )-DC2(M)/DG2(N) >00001930 

1) 00001940 

E1MTRX(4.3)=-DL1{N) 00001950 

E2MTRX(4*3)=-DL2(N> 00001960 


00001R00 

ooooieio 

00001820 

00001B30 

00001840 

00001850 

00001850 

00001870 

00001880 

00001890 

00001900 


66 FMATRX <1*4) =DWN ( N ) *SUMG-PKN < N ) 
FMATRX ( 2 » 3 ) =DI X ( N ) *OMGSO-D I J < N ) 
IF ( . NOT » DIJFLG ) RETURN 
FMATRX(2#3)=DIX<N>#0MGSQ 
FMATRX (3*2) =1 . ODO/DI J ( N) 

RETURN 

END 


00001970 

00001980 

00001990 

00002000 

00002010 

00002020 

00002030 



0 ELT MATMpY » 1 » 710407* 52146 


000001 


SUBROUTINE MATMPY ( A » B > C * K1 • Ml » K , M t N) 

00003110 

000C02 


IMPLICIT REAL*8 (A-H»0-Z> 

00003120 

000003 


DIMENSION A(20) #B(20) » C (20 ) 

00003130 

000004 


DO 10 1 = 1 * K 

00003140 

000005 


DO 10 J=1»N 

00003150 

000006 


II=( J-1)*K1+I 

00003160 

000007 


C<II)=0»0D0 

00003170 

000008 


DO 10 L=1»M 

00003180 

000009 


JJ=(L-1)*K1+I 

00003190. 

000010 


KK=(J-1)*M1+L 

00003200 

000011 

10 

C(n)=C(II)+A(JJ)*B(KK) 

00003210 

000012 


RETURN 

00003220 

0000.13 


END 

00003230 



a ELT REPEAT, 1.710407. 52147 


000001 


SUBROUTINE REPEAT ( A » AA , B , BB , C » CC » D » DD , E , F E » F » FF , NR ) 

00002350 

000002 


IMPLICIT REAL*8 (A-H.O-Z) 

00002360 

000003 

C* * $&****#*fc**4 1 ************* *#*#$*«** *$$** + * *#$*#*#$*************$***00002370 

000004 

C 

repeat reads 

IN A STATION CARD OR SIMULATES A REPEATED CARD BY 

00002380 

000005 

c 

MOVING DATA. 


00002390 

000006 

c 

a>b,c»d,e,f 

OLD AA,BB»CC*DO,EE,FF NEW 

00002400 

000007 

c 

NR 

= NUMBER OF REPEATS FOR A PARTICULAR CARD 

00002410 

000003 

C#****#####**’!:***^**# 5 '.'* >('*>)'**** *#**’« < >i : *** + * ; i 1 **** ******** ******* **%$******>!, 00002420 

000009 


IF(NR~1)400,100,100 

00002430 

000010 

400 

READ <5,3002) 

AA,BB»CC,DD,EE,FF,NR 

00002440 

000011 

3002 

FORMAT < 6D12 

o6» 13) 

00002450 

000012 


GO TO 700 


00002460 

000013 

100 

AA=A 


00002470 

0000 14 


bes-b 


00002480 

0 0 C 0 1 5 


cc=c 


00002490 

000016 


DD-D 


00002500 

000017 


EE^E 


00002510 

0C0018 


FF=F 


00002520 

000019 


NR=NR-1 


00002530 

000020 

700 

RETURN 


00002540 

000021 


end 


00002550 



a ELI ROOT, 1,710407/ 52149 


000001 

9 




000002 

« 

CALL ROOT ( N ) 


000003 

« 

N= NUMBER OF SEARCH ITERATIONS 

000004 

0 




G 00005 

S ( 1 ) * 


i 


000006 


REGNAM 



000007 

ROOT*, 




0JG008 


S 

B11/SVB11 

SAVE B 1 1 FOR RETURN 

C 0 00 09 


DL 

A0/G/B11 

GET 1 HE CALLING SEQUENCE 

OUGOIO 


DS 

AO / CALSEG . 

PUT A WAY 

000011 


LMJ 

Bll/ROOTF 

GO IMTIALIZE ROOTB 

000012 

CALSEG 

RES 

2 

CALLING SEQUENCE 

000013 

retagn* o 


• 

ITERATION RETURN ENTRY 

000014 


L 

B11/SV811 


000015 


J 

2/811 


000016 

ft 




000017 

* 




000018 





000019 

SVE-il 

+ 

0 


G00G20 


END 





za 


8 ELT ROOTB'1,710507, 61553 


000001 

000002 


C 

000C03 


c 

000004 


SUBROUTINE ROOTF(NN) 

000005 


IMPLICIT DOUBLE PRECISION <A-H»0-?> 

• 000006 


C 

000007 


C NN = SEARCH ITERATION LIMIT 

G00008 


C 

000009 


N = NN 




000010 


FLGA = 0 

000011 


FL6B = 0 

000012 


RETURN 

000013 


C 

000014 


C 

000015 


C 

000016 


ENTRY ROOTB(X,OX,F,E,K) 

000017 


C 

000013 


C X= X VALUE 

0GC019 


C DX = SEARCH INCREMENT 

000020 


C F = F(X) 

030021 


C E = ERROR LIMIT 

CJU0022 


C K = TERMINATION STATUS FLAG 

0 GO 023 


C 

000024 


IF (F) 100, 9000, 200 

000025 


C 

000026 


C F<0 

C 0 0 0 2 7 


C 

G0002B 


100 CONTINUE 

0O0029 


XMINUS = X 

000030 


FMINUS = F 

000031 


FLGB = F 

000032 


IF (FLGA ,NE.0) GO TO 1000 

000033 


GO TO 300 

COO 034 


C 

000035 


C F>0 

000036 


C 

000037 


200 CONTINUE 

000030 


XPLUS = X 

000039. 


FPLUS = F 

00004C 


FLGA = F 

000041 


IF (FLGB ,NE. 0) GO TO 1000 

000042 


C 

000043 


C TRY A NEW X VAKUE TO BRACKET THE ROOT 

000044 


C 

000045 


300 CONTINUE 

000046 


XLAST = X 

00004"=’ 


FLAST = F 

000046 


X = X+DX 

000049 


N = N-l 

000050 


IF (N .GE. 0) CALL RETAGN 

0 C 0 0 5 1 


K = N 

000052 


RETURN 

000053 


C 

000054 


C DO LINEAR INTERPOLATION TO APPROXIMATE THE ROOT 

000055 


C 

0G0056 


1000 CONTINUE 


♦ NEW 



000057 
000058 
000059 
000060 
000061 
000062 
C00063 
000064 
0 00065 
000066 
000067 
000058 
OGC 069 
000070 
000071 
000072 
000073 
000074 
000075 
■jOCO'/S 
000077 
000073 
000079 
1*1)0080 
uoooai 

000032 
C 0 C 033 
COO 054 
000035 
000066 
000087 
000088 


IF_ (F-FLAST _.EQ._ 0 >. _ GO..JO__200Q 

XI = (F*XLAST-X*FLAST)/ (F-FLAST) 

FLAST = F 

XLAST = X 

X = xi 
110 = 1 

c __ 

C SEE IF NEW X IS IN THE PROPER INTERVAL 
C 

1100 CONTINUE _ _ _ 

IF C <X-XMINUS)*<XPLUS-X) ) 1200* 9000, 1300 

1200 CONTINUE 

GO TO (2000* _9000) * 110 

C 

C TEST TO SEE IF CLOSE ENOUGH 

C 

1300 CONTINUE 

IF (ABS(X-XLAST)-E .LE. 0) GO TO 9000 

CALL RETAGN 

C 

C INTERPOLATE USING THE INTERVAL BOUNDARIES 

C 

2000 CONTINUE 

X = (XMINUS*FPLUS-XPLUS*FMINUS)/(FPLUS-FMINUS5 

110 = 2 

GO TO 1100 
C 

C NORMAL RETURN __ _ 

C 

9000 K = 0 

RETURN __ 

END 



a ELT STAOUT. 1.710407, 57004 


000001 " 
000002 
000003 
000004 
000005 
0 0 0 0 0 & 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 

ccooia 

OUOC19 
0 U 0 0 2 0 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
0C0C2S 
000029 
000030 
000031 
000032 
000033 
GOO 034 
000035 
000036 
000037 
000038 
0C0039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000046 
000049 
000050 
0 0 0 C 5 1 
000052 
000053 
000054 
000055 
000056 


SUBROUTINE ST AOUT ( AA . BB » CC . DD » EE » FF » KODE . i- .• BCD ► NST A » LINE » LSK IP ) '“' 00002566 
IMPLICIT REAL*8 (A-H.O-Z) 00002570 

DIMENSION AA(50,10>,BB(50,10),CC(50»10),DD<50»10),EE(50»10>» _ 00002580 _ 

1 FF (50.10) »BCD(6) 00002590 

REAL BCD *NEW 

C******##****##*#*#*^**#* *$*$*$*#$**$*******>!'** v**c*>ji**:(r*******>!r**:*#**>)<*00002600 
C STAOUT WILL PRINT 1 TO 6 HEADINGS. IT ALSO PRINTS NST A VALUES 00002610 
C BELOW THE HEADING. LINE = LAST LINE USED 00002620 

C***:**:}:*#* £ **$*$#:(<#$**;*#*>!'=!<*< 1 ********>***#**#***'*><' ; i 5 *’(' **# + *>!>***#****** + #**00002630 
N=1 00002640 


IF < LINE- (73-LSKIP) >31.30*30 

30 WRITE (6.4098) _ _____ _ _______ 

LlNE=i 

DO 55 11= l.LSKIP 

WRITE (6.4097) . .. _ 

55 LINE=LINE+1 

31 WRITE (6.20) (BCD ( II ). 1 1=1 .6) 

20 FORMAT ( 1H0 » 10X . A6 . 5 ( 15X . A6 ) //) 

LlNE=LINE+3 

LCTR=0 

56 GO TO (1.2. 3.4. 5) .KODE 
C 

1 WRITE (6.21) AA(N.L) .B3(N.L) .CC(N.L) ,OD(N.L) »EE(N.L) .FF(N.L) 

21 FORMAT <1H . 5X . 6(E15.8»oX> ) 

GO TO 575 

C 

2 WRITE (6.22) AA(N.L) .BB(N.L) .CC(N.L) »DD(N*t ) 

22 FORMAT (lH »5X» 4(E15.8.6X) ) 

GO TO 575 

C 

3 WRITE (6.23) CC ( N . L ) .DD ( N . L ) . FF < N . L ) 

23 FORMAT (1H.47X. 2 ( E15. 8 * 6X ) . 21X . E15 . 8 ) 

GO TO 575 

C 

4 WRITE (6.24) AA (N . L ) .03 ( M . L ) . CC < N . L ) 

24 FORMAT <1H . 5X . 3(E15.8.6X> ) 

GO TO 575 

C 

5 WRITE (6.25) AA(N.L) 

25 FORMAT (1H .5X.E15.8) 

C 

575 LINE=LINE+1 _ .. _ 

LCTR=LCTR+1 
IF(LCTR -5 >33.32.32 

32 WRITE (6.4097) 

line=line+i 

33 N=N+1 

I F ( N~NST A ) 34 . 34 1- 57 

34 IF (LINE-(80-LSKIP> ) 56.30.30 

57 RETURN 

4097 FORMAT (1H ) 

4098 FORMAT ( 1H1 ) 

C 

C 73 LEAVES MIN 5 STA. AT BOTTOM. THE HEADERS TAKE 3 LINES. 

C ASSUME SO PRINT LINES AVAILABLE. LINE=LAST LINE USED. 

end 


00002650 
00002660 
00002670 
00002680 
00002690 
00002700 
00002710 

*NEW 

00002730**-1 
00002740 
00002750 
00002760 
00002770 
00002780 
00002790 
00002800 
00002830 
00002820 
00002830 
00002840 
00002850 
00002860 
00002870 
00002880 
00002890 
00002900 
00002930 
00002920 
00002930 
00002940 
00002950 
00002960 _ 

00002970 
00002980 
00002990 
00003000 
00003010 
00003020 
00003030 
00003040 
00003050 
00003060 
00003070 
00003080 
00003090 
00003100 




n 
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25 APR 72 P 14:46:13 IDENT=FYEE ACC0UNT=42fl999 CAROS IN= 9* OUT= 0 


PAGES= 16* LXNESr 475. TIME=00 : 00 : 04 (HMS) 


ALL SOFTWARE ISO PROVIDES OR MAKES AVAILABLE FOR USE. IN ANY FORM WHATSOEVER* IS PROPRIETARY 
INFORMATION OF ISO AND IS NOT TO BE COPIED OR . REPRODUCED. WITHOUT. PRIOR WRITTEN AUTHORIZATION BY„ISD, 

S***#**#:***#:** * * * * * # * Jjii)!**)!#*****#*******#***#**********]*:**# 

**# USER NOTICES - ' APRIL 20 * ' 1972 " '***' : ~ 

(1) ISO 1108 TERMINAL SERVICE IS SCHEDULED AS FOLLOWS. ... _ 

mon : 07:00 - 24 : 0 c 

tue - fri : 00:00 - 04:00 : _07:oo - 24:00 _ _* 

sat : 00 : 00 - 22:00 

sun : 04:00 - 22:00 

"(2) LARGE-CORE (LCR) PRODUCTION jobs ARE' now BEING run on an OVERNIGHT basis STARTING AT 04:00 EACH DAY," 

(3) ISD NOW HAS AVAILABLE REMOTE-BATCH JOB ENTRY VIA LOW-SPEFD TELETYPE COMPATIBLE TERMINALS USING DIAL-UP COMMUNICATION LINES. 
THIS SERVICE HAS BEEN IN USE FOR OVER TWO MONTHS AND IS CALLED RON/I. 

THE DIAL-UP TELEPHONE NUMBERS AND TRANSMISSION RATES ARE LISTED BELOW. 

10 CHAR/SEC ""415-562-4035* 415-562-4036* 41 5-562-51. R6 

30 CHAR/SEC 415-562-4716 ** EFFECTIVE 4/24/72 THIS NUMBER WILL BE CHANGED TO 415-562-4294 ** 
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( 5)_ BEGINNING 4/24/72 AND AFFECTIVE MONDAY - FRIDAY TURNAROUND TIME SHOULD RE REDUCED BETWEEN THE HOURS OF 10:30 - 11:30 AND 
14:00 - 16:00 FOR USERS SUBMITTING NON-TAPE JOBS WITH RUN TIMES ESTIMATED AT LESS THAN 6 MINUTES. 

ADDITIONAL INFORMATION ON (2) 8 (3) IS NOW AVAILABLE TO ALL INTERESTED USERS BY CONTACTING YOUR SALESMAN AT 415-562-4204. 
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APPENDIX C 

PROGRAM E13102 LATERAL (FREE) VIBRATION ANALYSIS OF TWO ELASTI- 
CALLY COUPLED, UNDAMPED, LUMPED PARAMETER BEAMS, USERS' MANUAL 
AND SAMPLE OF INPUT/OUTPUT 


L 



LATERAL VIBRATION ANALYSIS OF TvJO ELASTICALLY 
COUPLED, UNDAMPED , LUMPED PARAMETER BEAMS 


Program El 3102 
(Formerly Program II 4 .O 3 I 4 ) 


Aerojet-General Corporation 
Computing Sciences 
Sacramento, California 

(i 


APPROVED 


Converted to 03/360 

by 

J. A. Budzenski 



and Programming 


2£ April 1968 



Aerojet-General Corporation 
C cmi >uti ng Selene o 3 
Sacramento, California 


LATERAL VIBRATION ANALYSIS OF TVD rl ASTI C ALLY 
COUPLED, UNDAMPED , LUMPED PAR ''-METER BEAMS 

Program E13102 
(Formerly Program IU 03 U) 

Converted to OS/ 36 O by 
J. A. Budzcncki 
2 3 April 1968 
Page 1 of 9 

INTRODUCTION 

This program, originally li;03U, a FORTRAN IV program, has been con- 
verted to 360 FORTRAN Level H without changes in logic. 

This program provides the capacity to analyse the free undamped lateral 
vibrations of two elastically coupled, "lumped parameter beams. Natural fre- 
quencies, mode shapes, and associated shear and moment distributions can be 
computed. Shear deflections, rotary inertia, and gyroscopic effects (for 
rotating shaft analyses) are included in the program capability. Each beam 
has four state variables (i.e«, shear, moment, slope, and deflection) of which 
two at each end for each beam must equal zero. 

This program is essentially an extension of IBM Job lii009 which is a free 
lateral vibration analysis of a single, undamped lumped parameter beam. For a 
more extensive discussion of the capabilities of lumped parameter beam models, 
consult the user's manual for that job. The principle application of these 
programs has been to analyze rotor-stator models to determine critical speeds of 
turbomachinery. 

For any additional information concerning the analysis of this program, 
contact Laverne K. Severud, Dept. 32 £2, Bldg. 2019. 

RESTRICTIONS 

1. The maximum number of bays is 30. 

2. The two specified boundary conditions at each end for each beam must 
equal zero. 

3 . To analyse a single beam, input a fictitious cantilever for the other beam, 
with zero lengths and vxeights. 



Program EL3102 
Page 2 of 9 

it. Always input finite values of G and EE« 

So To input data in exponential form, put E-j-xx or E-xx flush right in the 
field of 12, where xx is the two digit exponent and a plus sign will be 
understood, 

6, When either fixed point variables N or NSTA are only one digit, it must 
be right-adjusted in the field of two. 

NOMENCLATUR E ' 

L - Length of elasticity element (in) 

E - Modulus of Elasticity (psi) 

I - Area Moment of Inertia of Cross Section (in^) 

o 

C ° Shape Constant for Shear Deflection (in ) 

G ~ Modulus of Rigidity (psi) 

W - Weight of Lumped Mass (?/) 

o 

Ij - Polar Mas3 Moment of Inertia (//in sec ) 

p 

I “ Diametral Mass Moment of Inertia {if j:n sec ) 

K - Spring Constant (ir/in) 
co «■ Natural Frequency (cp 3 ) 

Aco - Increment in Frequency (cps) 
c - Damping Coefficient {if sec/in) 

DX - Offset between corresponding stations in two beams (in) 

Y - Forcing Shear Coefficient of w 2 (# sec 2 ) 

7 1 - Forcing Shear Constant (#) 

P - Forcing Moment Coefficient of w 2 (7r in sec 2 ) 

Y - Shear {if) 

M - Moment (in #) 

0 - Slope (rad) 

Y ° Deflection (in) 


Lateral Vibration Analysis of 
Two Elastically Coupled; Undamped;, 
Lumped Fargmctor Beams 



Lateral Vibration Analysis of 
Tvjo Ilastically Couple d a Undnmpod a 
Lumped Parameter Booms 


Program PI 3 102 
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A a B a C a D, M a N, 0, P (See p. 9 ) 

Note: All unprimed quantities refer to top beam and springs between the beam 

All primed quantities refer to the bottom beam and springs between it 

and ground. 



Lateral Vibration Analysis of 
Two Elastically Coupled, Undamped, 
Lumped Parameter Beams 


Program El 3102 
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To LUMPED PARAMETER MODEL 


X+l X X~1 



vW/ 




Lateral Vibration Analysis of 
Two Elastically Coupled, Undamped, 
Lumped Parameter Reams 


Program 11.3102 
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III o TRANSFORMATION ACROSS IDEALIZED HASS 


X+l x 

< 





7K 


ROTOR 



1) DX is positive when direction of offset from rotor to stator •• 
is in direction of increasing station numbers <, 

Since DX is infinitely stiff, K Y must be the equivalent stiffness 

/w 

of the actual offset am and the bearing in series 0 


2 ) 



Lateral Vibration Analysis of 
Two Elastically Coupled, Undamped, 
Lumped Parameter Beams 


Program 113102 
Page 6 of 9 



Stator may not have any IJ; if it needs to be included. 


T! = Tl _ T» 

x X X J 


let 



Lateral Vibration Analysis of 
Two Elastically Coupled, Undamped, 
Lumped Parameter Beams 


Program El 3102 
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In like manner 



Lateral Vibration Analysis of 
Two Elastically Coupled, Undamped, 

Lumped Parameter Beams 

V. SOLUTION PROCEDURE 
Thus, 

{A> x » [E]^ t^xL “ ^XL ^X * A *XR 
” [E]^ [F 3 X C E ^XR iA ^x~i 

{ A} X - C C] x {A } x-1 

Continuing from span to span 

{A> x = [C] x [C ] x-1 {A > Xa2 etc. 

N 

and ‘{A} *» n [CJ. {A} q 

i=l 

{A} n = [D] {A } 0 

For generalized zero boundary conditions 

At N 6 ; 6, ~ 5 : 5 - are zero 

a n c a 

AtO 6,8,636 are non-zero 

m n o' p 


M 


d am 

d an 

d ao 

d ap 


( \ 
6 m 

6 b 

/ 

V 


V 

d bo 

% 


6 n 

\s 

c 

) = 

d cm 

d 

cn 

d co 

d 

cp 

{ 

6 

0 

6 d 

v ; 


d dm 

d , 
dn 

d do 

d. 

ap 


6 p 

J 


For non-trivial solution, determinant must equal zero. 


Program E 13102 
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Iterate with trial values of co until roots are found 



Program l'D.3102 
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Lateral Vibrato. on Analysis of 
Two Elastically Coupled, Undamped, 

Limped Paniacter Berms 

VI. NO REALIZATION OF MODE SHAPE 

When co is determined, set 6^ - 1 (i ~ n,n,o or p) 

Substitute into first 3 equations and solve for the remaining 3 6’s 
at point 0 o 

. * . { A } is known 

Calculate remaining {A}., from relation 

X 

{A}„ = n [C], {A} 

A i=l ° 

One check of computational sensitivity is to see if the zero variable 
at end N do in fact calculate to zero. 

VII. SPECIAL INPUT PA&U'JSTS 3S 

a, b 3 c, d 6 a , o b , 6 c , 8^ (Zero at end N) 

m, n, o, p ^=> 5 m , 5^, 5 q j 6^ (Non-sero at end o) 

i=> 5^ (i either m,n,o,p - normalising parameter) 





1. ENTER DATA LEGIBLY WITHIN SPACES PROVIDED 
1 . DISTINGUISH BETWEEN 0,2»i I.li.j V/.iS 

3. A right-adjusted integer in col. 73-75 will repeat a card of station 
data and store the data in locations corresponding to consecutive 
s Matrons . 





AGCS CUC-5 (REV 10/64} 


PLEASE PRINT CL.lARLY . USE SLACK PENCIL 


















1 


8080 LISTING 


COUNT 


GEMINI GEARBOX FORCED VIBRATION 
2 100 . 


100 . 


1 


RUN j 
2 5 


21 


.30 

.30 





Ll 

3.70 

E&063.70 

EC061 .0 

. »•<> 



E I 1 

11.0 

E&061 1 .0 

E&061.0 

1 .0 



G 1 

3.73 

3.73 





Cl 

.000092 






I 1 

.2 11 






W1 

0.0 

0.0 





L2 

1 .0 

1 .0 

1 .0 

1 .0 



E I 2 

1 .0 

1 .0 

1. 0 

1.0 



G2 

O 

• 

o 

o 

• 

o 



1 000. 


C2 

0 .0 






12 

0.0 


2.0 

E6 

36.5 

E6 04. 250 

W2 

.25 

. 25 





L3 

7.05 

E&OS7.05 

E&061 .0 

1.0 



E I 3 

11.0 

E&061 1 .0 

E&061 .0 

1 .0 



G3 

2.16 

2.16 





C3 

.000104 






13 

.29 






W3 

o 

ro 

« 

.30 





L4 

81.8 

EG0681 .8 

E&061 .0 

1.0 



EI4 

11.0 

E&061 1.0 

E&061 .0 

1.0 



G4 

.056 

.056 





C4 

.00128 






14 

1 .07 






W 4 

.35 

,35 





L5 

81.8 

E&068I .8 

E&061.0 

1 .0 



E I 5 

11.0 

E&061 1.0 

E&061 .0 

1 .0 



G5 

.056 

.056 





C5 

.00146 






15 

1 .25 






W5 

.50 

.50 





L6 

81.8 

E&0681 .8 

E&061 .0 

1 .0 



E 1 6 

11.0 

E&061 1.0 

E&061 .0 

1.0 



G6 

.071 

.071 





C6 

.00191 






16 

1.71 


. , 




W 6 

.275 

.275 





L7 

12.7 

E&0612 .7 

E&061 .0 

1 .0 


• 

E I 7 

1 1.0 

E&06 1 1.0 

E&061 .0 

1 .0 


*' 

G7 

.208 

.208 





1 C7 

.000436 






17 

.56 






W 7 

o 

e 

O 

0.0 





L8 

1 .0 

1 . 0 

1.0 

1 .0 



E 18 

1 .0 

1 .0 

1 .0 

1.0 



G8 

0.0 

0.0 


\ 

1000. 


C8 

0.0 





18 

0.0 


.7 

E6 

4.60 

E&04.4I3 

W8 

.275 

.275 





L9 

12.7 

E&0612.7 

E&061 .0 

1 .0 



E I 9 


p 
•a m 

(0 c+ 
P.H- 

p 

s p 

s 

b o 

C+- o 

n> c 

03 O 

co a 


w a 
1 3 


Q 

P- 


^0 »- 
P CD 
CM C j 

CD 

H C 

o& 

*"* C 
U* r- 



8080 LISTING 


11.0 

E6061 1.0 

EC061 .0 

1.0 



.208 

.208 





.000436 






.56 






.40 

.40 





9.35 

EC069.35 

E6061 .0 

1.0 



11.0 

EC061 1.0 

E6061 .0 

\ 1.0 



.248 

.248 





.000465 






.738 






.45 

.45 





9.35 

E £069 . 35 

E&061 .0 

1 .0 



11.0 

E6061 1.0 

E6061 .0 

1.0 



.248 

.248 





.000495 






.83 






.35 

. 35 





12.7 

E60612.7 

EC-061 .0 

1.0 



11.0 

EC061 1.0 

EC061 .0 

1.0 



.208 

.208 





.00053 






.715 






o 

0 

o 

0.0 





l .0 

1.0 

1 .0 

1 .0 



1 .0 

1 .0 

1.0 

1.0 



O 

• 

o 

0.0 



1000. 


0.0 

0.0 





0.0 


.8 

Eft 

4.60 

E&04.413 

.30 

.30 





12.7 

EC0612.7 

EC061 .0 

1 .0 



1 1 .0 

ES-061 1.0 

EC061.0 

1 . 0 



.208 

.208 





.000382 






.552 






. 1 5 

. 15 





6.78 

EC066.78 

EC061 .0 

1 .0 



11.0 

EC061 1.0 

EC061 .0 

1 .0 



.303 

.303 





.000679 


1 




.51 





! 

.35 

.35 

' 


, 


22.0 

E60622 .0 

EC061.0 

1 .0 

- 


11.0 

EC061 1.0 

EC061 .0 

1 .0 



. 106 

. 1 06 





.000465 






.63 8 






. 1 5 

. 15 





22.0 

E&06P2.0 

E&061 . 0 

.1 .0 



1 1 .0 

E6061 1.0 

EC061 .0 

■! . o 



. 1 06 

.106 






.000155 
• 23S 


2 


COUNT 


G9 
C9 
19 
W9 
L 1 0 
£.1 10 
G10 
CIO 
I 10 
W 1 0 
L 1 1 
El 1 1 
G 1 1 
Cl 1 
I 1 1 
W1 1 
L 1 2 
El 12 
G 1 2 
C 1 2 
112 
W12 
L 1 3 
El 13 
G 1 3 

0 3 
113 
W 1 3 
LI* 

El 14 
G 1 4 

04 

1 1 4 
W 1 4 
L 1 5 

El 15 
G 1 5 

05 
I 15 
W 1 5 
L 1 6 

E 1 1 6 
G 1 6 
Cl 6 
M 6 
W16 
L 1 7 
El 1 7 
G 1 7 
07 
I 17 
W17 
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BOBO LISTING 


.20 .20 

111.1 EG06111.1 £0061.0 

11.0 E00611.0 £0061.0 

.047 .047 

.000188 
. 133 

.475 .475 

231. £006231. E0061.0 

11.0 £00611.0 £0061.0 

.131 .131 

.1029 .VS 

8.30 

.425 .425 

93.5 £00693 . 5 E0061.0 

11.0 £00611.0 £0061.0 

.456 .456 

.0019 
.969 

.30 .30 

231. E006231. £0061.0 

11.0 £00611.0 £0061.0 

.131 .131 

.0992 .780 

7.73 


1 .0 
1 .0 


1 .0 
1 .0 

£-04.0702 


1 .0 

1 .0 


1.0 . 
1.0 

£-04 


\ 

\ 

\ 

\ 

\ 


3 


COUNT 


L18 
El 1 8 
G 1 8 
CIS 
I 18 
W 1 8 
L 1 9 
El 19 
G 1 9 
C 1 9 
I 19 
V) 19 
L20 
E I 20 
G20 
C20 
I 20 
W20 
L 2 1 
£121 
G21 
C21 
121 
W21 

128 * 


rrogx =cn rj-jj-v... 
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JOB £13102 VIBRATION ANALYSIS 


OEM INI GEAR80X FORCED VIBRATION RUN 1 NUMBER OF STATIONS 21 

NUMEEK OF ROOTS 2 TRIAL OMEGA 100.000 OELTA OMEGA 100.000 12563456 

i 


L < 1 ) L(2> L(3> 


0.300000CCD 

00 

0. 3 C000000D 

00 

0 .0 

C .0 


0. 0 


0.0 

0.250C0000D 

00 

v 0.250000000 

00 

0 .0 

O.300C0CG0D 

00 

0. 3COOOOCOD 

00 

0.0 

0 .350000000 

00 

0. 35000000D 

00 

0.0 

0 .500000000 

00 

0. 500000000 

00 

0.0 

0.275COOOCC 

00 

0. 275000000 

00 

0.0 

0.0 


0.0 


0.0 

0.275COCOOD 

00 

0. 27500C0CD 

00 

0 .0 

0 .4GC00CCCD 

00 

0.4000000CD 

00 

0.0 

0 . 450 COO 00D 

00 

C. 45000000D 

00 

0 .0 

0 .35000000D 

00 

0.350000 OOD 

00 

0.0 

0.0 


0. 0 


0.0 

0 .3COCOOGOD 

00 

0. 300000 OOD 

00 

0.0 

0. ISOCOOCOD 

CO 

0. 150000000 

00 

0 .0 

0.350000000 

00 

0, 3S000C00D 

00 

0.0 

0. 1 50 000 COD 

00 

C. 1 500000CD 

00 

0.0 

0 « 2COCOOCGD 

00 

C.20000000D 

00 

0.0 

C.475CIOCOCD 

00 

H 0.475000000 

00 

0.0 

0 .425000000 

00 

' 0.425000000 

00 

0.0 

0.300 COO CCD 

00 

0.300000000 

00 

0.0 


LI 4 ) 


0.0 
n. o 
0.0 
0. o 
0. 0 
0. o 
0. 0 
0. 0 
0. 0 
0. 0 
0. 0 
0. 0 
0. 0 
0. 0 
0. 0 
0.0 
0. 0 
0. o 
0. 0 
0. 0 
0. 0 


f 1 t-J f 
5 w p) 
3 p Ct- 
TJ G1 (D 
Cj Cf ' i 

*£& 

^ HH* 

Q O P 
i+ O c| 
CD Cl H* 

n XJ O 
H US 
cd o 
CD Cl > 

I ”* B 

Q cl H 





1-3 

& G *~i 
TO ca O 
<d c+ TO 

HOP 
P 3 
O U 

g \r. 



El l 1) 


El (2) 


0.37CCOOOOD 07 
0.1 GG 00 0 ODD 01 
0.705C00C0D 07 
Q • 8 1 0000 COD 08 
o.aieoooooo oe 

O.818CCO00D 08 
0.127C0C00D 08 
O.iOCOOOOOD 01 
0 . 1 27C0000D 08 
0 *9250 00 COD 07 
0.93500000D 07 
0.127CCCC0D 08 
O.IOOCOOOOD 01 
0.12 7C00C0D 08 
0.673COOCOD 07 
0*220000000 08 
0*220000000 08 
0.1 1 1 10000D 09 
0.221CC000D 09 
0 .9 2 5000 COD 08 
0*221 COOOOD 09 


0.370000000 07 
0. 1 OOOOOOOO 01 
0* 7 05000 OOD 07 
0.818000CCD 08 
0.818000000 08 
0. 81 8000 000 08 
0.127000000 08 
0.100000000 01 
0. 127000000 08 
0.935000000 07 
C. 935000000 07 
0. 127000000 08 
0. 1 OOOOOOOO 01 
0. 127000000 08 
0.678000000 07 
0. 220000000 08 
0.220000000 08 
0.111 100000 09 
0.231000000 09 
0.935000000 08 
0.231 OOOOOD 09 


G < 1 ) 


G ( 2 1 


0.110000000 08 
0* 10000CC0D 01 
O.llOCOOCOO cs 
0. 1 10G0C00D OS 
0 . I 10C0000D 08 
O.llOCOOOCD 08 
0.110000000 08 
0.1 00000 COD 01 
O.llCCOOOCO 00 
0.11 OOOCOOO 08 
0 . 1 lOOCCCOO 08 
0.110 COOOOD 08 
C.1COCOOOOO 01 
O.llOCCOOOD 08 
0.11 OGOOOOO 08 
O.llOCCOOOD 08 
O.llOOOOCOD 08 
0.110000000 08 
0. 1 10C0000D 08 
0.110000000 08 
O.llOCGOOOD 08 


0.110000000 08 
0. 1 OOOOOOOO 01 
0.110000000 08 
0.110000000 08 
0.110000000 08 
0.110000000 08 
0.110000000 08 
0.100000000 01 
0. 1 1 OOOOOOO 08 
0.110000000 08 
O.i 10000000 08 
0. 1 10000000 08 
O.ICOOOOOOO 01 
C.llCOOOOCO 08 
0.110000000 08 
0. 1 1 0000 OCD 08 
0. 1 l OOOOOOO 08 
0. 1 1 OOOOOOO 08 
0. 1 1 OOOOOOO 08 
O.llOCOOCOO 08 
0.110000000 08 



EI<3> 


EIU1 


0.1 OOOOOOOD 01 
0.100000000 01 
0.100000000 01 
O.IOOOOOOOD 01 
0.100000000 01 
0.100000000 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
0.100000000 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
0.100000000 01 
0 . tOOOOOOOD 01 
0.100000000 01 
0 . 100000000 01 
O.IOOOOOOOD 01 
0.100000000 01 

G { 3 ) 


O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
0.100000000 01 
0.100000000 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
0.100000000 01 
O.IOOOOOOOD 01 
0.100000000 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
0.100000000 01 
0.100000000 01 
0.100000000 01 
0.100000000 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 


0. lOCOOOCOD 01 
0.100000000 01 
o. i oooooood oi 
0.100000000 01 
0. 1 0 0000 0 OD 01 
O.ICOOOOOOO 01 
O.IOOOOOOOD 01 
0. 1 OOOOOOOO 01 
0. 1 OOOOOOOD 01 
0. 100000000 01 
0. 1 OOOOOOOD 01 
0. 1 OOOOOOOD 01 
0. 100000000 01 
0,1 OOOOCO n D 01 
0. 100000000 01 
0 . I OOOOOOOD oi 
O. 1 OOOOOOOD 01 
O. 1 OOOOOOOO 01 
0. 1000000 OD 01 
0. lOOOOOOOD 01 
O.IOOOOOOOD 01 

G t 4 ) 


0. 1 OOOOOOOD 01 
O.ICOOOOOOO 01 
0. lOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
0. lOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
0. lOOOOOOOD 01 
O.IOOOOOOOD 01 
0. lOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 
0.100000000 01 
O.IOOOOOOOD 01 
0. lOOOOOOOD 01 
O.IOOOOOOOD 01 
O.IOOOOOOOD 01 


_ _ *' program 
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C< 1 > 


C(2> 


0.373000000 01 

0.0 

0.216000000 01 
0 o 560 COO OOD— 0 1 
0. 560000000-01 
0.710000000-01 
0.208000000 00 
0.0 

0 .206000 OOD 00 
0.240000000 00 
0.24800000D 00 
0 . 2 08 COO OOD 00 
0.0 

0.208COOCOD 00 
0.303C00C0D 00 
0.10600000D 00 
0.1C6C0000D 00 
0 .470000000-0 1 
0.131C00C0D 00 
0.45600 GOOD 00 
0.121 COOOOD 00 

I SUB J1 


0.92000000D-04 

0.0 

0. 104C0C00D— 03 
0.128C00C0 D— 0 2 
0 . 146C0000D-C2 
0.191000000-02 
C -436C0000D-03 
0.0 

O.436CC0COD-O3 
0 .465C0CC0D-03 
0.495000 CCD— 03 
0.520 COO COD— 0 3 
0 .0 

0 .302000000-03 
0. 679000000-03 
0.465COOOOD— 03 
0. 15500CG0D-03 
0 . 10800000D-03 
0.1C290000D 00 
0.1 90000 OOD— 02 
0.99200000 D— 0 1 


0. 37300000D 01 

0.0 

0. 21600000D 01 
0.56000000D-0 1 
0.5 600 00 OOD— 01 
0. 71 000000D-01 
0.20800000D 00 
0.0 

0. 20800000D 00 
0.240000000 00 
0.2480000 CD 00 
0.2 0800 0 OOD 00 
0. 0 

0.203000000 00 
0.30300000D 00 
0.106000000 00 
0. 1 0600000D 00 
C. 470000000-01 
0. 1 31 0000 CD 00 
0. 45600000D 00 
0. 1 31 OOOOOD 00 

DX 


0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0 . 0 
0. 0 
0. 0 
0.0 
0. 0 
0. 0 
0 . 0 
0.0 
0 . 0 
0.0 
0. 0 
0 . 0 
0.0 
0 . 0 
0. 0 



C C 3 ) 


C ( 4 ) 


0 .0 
0 .0 
0.0 
0.0 
0.0 
0.0 
0 .0 
0.0 
0.0 
0 .0 
0.0 
0.0 
0.0 
0 .0 
0 .0 
0.0 
0.0 
0.0 
0 .0 
0.0 
0.0 

I SUB XI 


0.0 
0.0 
0.0 
0.0 
0 .0 
0 .0 
0.0 
0.0 
0.0 
0.0 
0 .0 
0 .0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 

0.780000000-04 

0.0 

0.780000000-04 


0. 0 
0.0 
0.0 
o. 6 
0 . 0 
0. 0 
0.0 
0. 0 
0. 0 
0 . 0 
0. 0 
0 . 0 
0 . 0 
0 . 0 
0.0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
O. 0 
0 . 0 

I SUB X2 


0. 0 
0. 0 
0. 0 
0. 0 
0. 0 
o . 0 
0 . 0 
0 . 0 
0 . 0 
0.0 
0 . 0 
0 . n 
0 . 0 
0 . 0 
0. 0 
0 . 0 
0.0 
0.0 

0. 702 000 OOD— 01 
0. 0 
0 . 0 
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W .SU£3 N1 


•U SUB N2 


0.211000000 00 0.0 

0.0 0.0 

0.2S0C0000O 00 0.0 

0.10700000D 01 0.0 

0 • 125000000 01 0.0 

0.17 1 00000D 01 0.0 

0 . 50 0 C CO 0 OD 00 0.0 

0.0 0.0 

Q.560COOOOD 00 0.0 

0.738C0000D 00 0.0 

0.8300000 OD 00 0.0 

0.715COCOOD 00 0.0 

0.0 0.0 

0 .5520000 OD 00 0.0 

0.510000000 00 0.0 

0.638000000 00 0.0 

0.2380000CD 00 0.0 

0.1 33 C 000 OD 00 0.0 

0 . 830 COOOOO 01 0.0 

0 .960000000 00 0.0 

0.773C0C00D 01 0.0 


\ 

\ 


K SUB N 1 


K SUB N2 


0.0 

0.20000000D 07 
0.0 
0.0 
0 .0 
0.0 
0.0 

0.70000000D 06 
0.0 
0 .0 
0 .0 
0 .0 

0.800000000 06 
0.0 
0.0 
0.0 
0 .0 
0.0 
0.0 
0.0 
0.0 


0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0.0 
0.0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0.0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 


-s p 

p p < 

4 H H* 

^ ff 

OOP 
c + O c + 
O P H- 

n •a o 
H 3 

33 O 






n u o 
ra d-cs 

rnp 
p> 5 
o o 
Hid W 

H * 

VO O W 

e H 

d - O 
T3 •'J 

c + 



OMEGA 


C. 1 COOCOOOD 

03 

DETERM 

OMEGA 


0. 2COOOOOOD 

03 

DETERM 

OMEGA 

= 

0. 300000000 

03 

DETERM 

CM EGA 


0.400000000 

03 

DETERM 

OMEGA 

= 

0. 213662140 

03 

DETERM 

OMEGA 


0. 31 541 9C4D 

03 

DETERM 

OMEGA 


0. 31567295D 

03 

DETERM 

OMEGA 

= 

0. 315672090 

03 

DETERM 

OMEGA 

ss 

0.315672 090 

03 

DETERM 

OMEGA 

= 

0.315672090 

03 

DETERM 

OMEGA 

J= 

0.315672090 

03 

DETERM 

OMEGA 

= 

0.315672090 

03 

DETERM 


OMEGA = 


\ 

t 

\ 


= -0.910666930 14 
= -0.609101630 14 
= —0.993366490 13 
= 0.627758710 14 
= -0.130396280 13 
= -0.164655690 12 
= 0.556518080 09 
= -0.237684560 06 
= — 0.68750000D 00 
= -0. 500000000 00 
= 0. 200000000 01 
= 0.12 500000 D 00 

0.31567209D 03 
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V 



M 


PHI 


Y 


* 


0.0 



0 . 0 


0 . 10000000 D 

01 

0. 245248820 

01 


- . 

0 .462821650 

04 


0.1 02653860 

04 

0.999973050 

00 

0. 1 85201 860 

01 


) 

-0 .369940900 

07 


0. 1 02656380 

04 

0.999973060 

00 

0. 1 85201 860 

01 



- 0 . 3694 14 19 D 

07 


- 0 . 1 8477770 D 

07 

0 . 106548400 

01 

0 . 170407450 

01 

'■ 


- 0. 367399790 

07 


- 0.406512850 

07 

0 .103717780 

01 

0 . 1 0703509 D 

01 



- 0 . 36740671 D 

07 


- 0. 1 03249760 

08 

0 . 1 23671820 

01 

- 0. 849732030 

00 



- 0.368152930 

07 


- 0. 1 23504540 

08 

0.1 72770 1 2 D 

01 

- 0 . 16226723 D 

01 


>.* ' 

- 0.254565870 

07 


- 0. 1 23504540 

on 

0 . 1 72770 1 20 

01 

- 0. 162267230 

01 

h w t - 1 

cj t— ' P 


- 0.255776850 

07 


- 0 . 137573:310 

08 

0 .229299 1 20 

01 

- 0.269902890 

01 


— 0 . 25 G 569860 

07 


- 0. 158200300 

08 

0 . 35580939 D 

01 

- 0. 498129720 

01 

3 P c* 


- 0.264263690 

07 


- 0. 1 81 31 2460 

08 

0 .519390230 

01 

- 0. 884957490 

01 

X) U) o 
(D c+ *s , 

a h* p ■ 

■ » f 

- 0 . 2720 Q 8 S 1 D 

07 


- 0. 200703800 

08 

0 .624770360 

01 

- 0 . 1 2 8 1 2 54 70 

02 


0 . 75251 £260 

07 


- 0. 200703800 

08 

0 .624 770360 

01 

- 0 . 1 2 a 1 2 54 70 

02 

.PH' 


0 .744 551060 

07 


- 0. 155879220 

08 

0 .708973080 

01 

- 0. 169093030 

02 

< ■ 


0.735221 1 3 D 

07 


- 0.1 33080300 

08 

0 .773063620 

0 1 

- 0.191959240 

02 


' »■ ■ 

0.720542750 

07 


-C . 830595020 

07 

0 .807537020 

0 1 

- 0. 247865580 

02 

i s h > 


0.714633310 

07 


- 0. 615754 1 80 

07 

0 . 81 739 S 26 D 

01 

- 0 . 272454.7 90 

02 

o n p ; 


0.710718560 

07 


- 0.331288970 

07 

0 .819099410 

01 

- 0. 305309490 

02 

0 ° H* 


0.419224120 

07 


- 0.1 26278220 

07 

0.819897930 

01 

- 0. 383802330 

02 

4 O j, 

HP » 

J ® . 

W 

0 .377810350 

07 


0.206331790 

07 

0.819494050 

01 

- 0 . 454901 94 D 

02 


- 0 . 400468710 - 

•07 


0 . 1 44355000 - 

-06 

0 .819152490 

01 

- 0.504191560 

02 

; co pl > ; 

p * 3 


V PRIME 



M PRIME 


PHI PRIME 


Y PRIME 


1 

p S * 


0.768187100 

07 


0.0 


0 .0 


0 . 0 


3 M ; 
XI 

■. k 

0.768187100 

07 


0.0 


0 .0 


0 . 0 


0 O 5 

■J.i' 

0 . 1 13855080 

08 


0.0 


0 .0 


0 . 0 


M* • i 

V 


0 . 1 13859080 

08 


0.0 


0 .0 


0 . 0 


H 3 f 


0 . 1 13655080 

CS 


0.0 


0.0 


0 . 0 


O . 

■Q 

0 . 113855 C 8 D 

08 


0.0 


0.0 


0 . 0 


! 

0. 113859000 

03 


0 . 0 


0 .0 


0 . 0 


1 


0 „ 1 1 3 859 0 80 

08 


0 . 0 


0.0 


0 . 0 


l 


0. 102500380 

03 


0 . 0 


0 .0 


0 . 0 


[ 

* 

0.102500380 

08 


0.0 


0.0 


0 . 0 



v •; 

0 .102500380 

ca 


0.0 


0 .0 


0 . 0 


f 


0.102500280 

08 


0 . 0 


0.0 


0 . 0 




0 . 10250038 D 

08 


0.0 


0.0 


0 . 0 




0 . 47264621 D -07 


0 . 0 


0 .0 


0.0 




0 . 47264621 D- 

-07 


0.0 


0 .0 


0 . 0 




0 . 472646210-07 


0.0 


0 .0 


0 . 0 




0 . 472646210 - 

-07 


0.0 


0 .0 


0 . 0 




0 . 472646210 - 

-07 


0.0 


0.0 


0 . 0 


1 


0 . 472646210 - 

-C 7 


0 . 0 


0.0 


0 . 0 


i 


0 . 472646210 - 

-07 


0 . 0 


0 .0 


0 . 0 




0 . 47264621 D- 

-07 


0 . 0 


0 .0 


0 . 0 




0 . 472 . 346210 - 

-07 


0.0 , 


0 .0 


0 . 0 





P- 


“XJ *-5 ^X> 
P 0 *-i 
CO o 

<0 c«-CT3 

ON O P 
p B 
O w 

Hj O p 

'°9'£ 

#s 

& 



OMEGA 

— 

0.41567209D 

03 

DETERM 


0.76205397D 

1 4 

OMEGA 

— 

0.515672090 

03 

DETERM 

= 

0 .175243870 

15 

OMEGA 

— 
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APPENDIX D 


PROGRAM E13102 LISTING 

i 





KYU.L .420999 t 2 t 2UU LIST ^Ioj.02 
09 RUN FYE£»428999»2'200 ) LIST E13102 1 

,, . | _J 

0 CTL 'JN=E13102 

9R ASG X=AN4150 

AN4150 ASSIGNED UNIT 1 . 

QN HOC ‘ ' "" ' ' 


1 


DATE 25 A PH 1? p A6 r 

.25 APR 72 14 1 46: 14 • 697 

25 APR 72 14:46:14.697 

25 APR 72 14:46:14.770 

25 APR 72 14 : 46: 1 4 . 776 





X3T CUR 

25 APR 72 14:46! 14*780 

1. 

PEF X 

14:46:15 

2. 

IN X 

END OF FILE — UNIT X 

14 ! 46! 15 

3* 

LIST I 

14!46: 17 
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3 ELT EXPAND; 1 > 710422; 35969 


000001 

000002 

C00G03 

000004 

000005 

000006 

000007 

00000S 

000009 

000010 

OOOOli 

000012 

000013 

000014 


SUBROUTINE EXPAND “ ' 

IMPLICIT REALMS (A-H»0-Z) 

DIMENSION BLO (250) 

COMMON/ARRAY/BLO/ARRAYZ/BHI 

bhi = 0,0 

RETURN 

C# ***♦*<: $**££>>:**«******4:)** 

C EXPAND SHOULD PRECEDE 1ST SIMST USE. 

C EXPAND SHOULD ONLY BE CALLED FOR THE 7094. 

C TO DIMENSION BLOrESTIMATE NEEDED STORAGE. 

C PUT DIM OLO(l) AND NAMED COMMON IN EVERY SIMST-USING ROUTINE. 

C EXPAND ONLY NEED BE CHANGED IF AVAILABLE STORAGE CHANGES. 

END 
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2.07 


.02 

.0 

.0 

16.9E6 

1.0F9 

1.0E9 

11.7E6 

11.7E6 

11.7E6 

3.14 

1. 

1. 


-.OE-a 

.0 

.0 



.151 

,0 

.0 

24.7E6 

1.0E9 

1.0E9 

11.7E6 

11.7E6 

11.7E6 

2.15 

1. 

1. 


-2.1E-8 

.0 

.0 



.02 

.0 

.0 

16.9E6 

1.0E9 

1.0E9 

11.7E6 

11.7E6 

11.7E6 

3.14 

1. 

1. 


-. OE-8 

.0 

0 0 



.164 

,0 

.0 

27.3E6 

1.0E9 

1.0E9 

11.7E6 

1 1 . 7E6 

11.7E6 

1 .96 

1. 

1. 


-2.1E-8 

.0 

.0 



.0 

o 0 

.0 

1 0 o 0E6 

10.0E9 

10.0E9 

11.7E6 

1 1 . 7E6 

11.7E6 

1 0 

1. 

1. 


-.OE-8 

.0 

.01 

. 92E6 


.17 

1,2 

2.1 

59.3E6 

7.8E9 

7.8E9 

1 i . 7E6 

11.7E6 

11.7E6 

.96 

.13 

.11 


-2.4E-8 

4.55 

42.2 



.02 

. 3 U 

.76 

47 o 3c6 

39.3E9 

39.3E9 

11.7E6 

11.7E6 

11.7E6 

1.22 

.03 

.03 


-.OE-8 

1.83 

44.23 



,20 

1.9 

3.1 

9C.0E6 

2.4E9 

2.4F9 

6.1E6 

11.7E6 

1 i » 7E6 

,2 

.31 

.31 


-5.2E-8 

.49 

17.43 



.34 

4.15 

2.27 

1230, 0E6 

2.4E9 

2.4E9 

6.1E6 

11.7E6 

11.7E6 

.16 

.31 

.31 


-36.E-8 

.72 

17,86 



,57 

.72 

1.28 

530. 0E6 

. 1E9 

,1E9 

6.1E6 

11.7E6 

1 1 , 7E6 

.16 

.31 

.31 


-11.8E-8 

.0 


1.2 



C00237 .42. _ 

0 0 G 2 v 5 1230 . 0E6 

C 00239 6.1E6 

000240 _ .16 _ 

000241 ‘ ' “ +.104 

000242 7.0 


. 6 0 .0 «_0 

1230. 0E6 ' 1 « 0E6 ~1.0F6 

6.1E6 11.7E6 11.7E6 

« 1 6 . 0 « 0 __ 

” -40.E-8 .0 


0 



_T MAIN. 1,710427. 53665 


ooocoi 

U00CC2 
C 0 0003 
000004 
0.9 0005 
OQOCiCo 
000007 
000003 
000009 
000010 
000011 
000012 
0CC013 ' 
000014 
000015 
0 0 0016 
O0C017 
000018 
000019 
000020 
000021 
G0li022 
000023 
003024 
000025 
000025 
OOOC27 
30 01.28 
000029 
000030 
000031 
000032 
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000034 
030035 


C 

C 

C 

C 


LATERAL VIBRATION ANALYSIS OF 
LUMPED PARAMETER 8EAMS 


TWO 


ELASTICALLY 
. ..JOB 14034 


COUPLED. UNDAMPED 
L..VAN TRIEST 


999 


30 


IMPLICIT REALMS (A-H.O-Z) 

COMMON /ARRAY/BLO/ARRAYZ/BHI 
DIMENSION BLO ( 1 ) 

DIMENSION DL1 (50) »DL2 ( 50 ) »DL3 ( 50 ) » DL4 ( 50 ) .Dili (50) »DE 12(50) . 

1 DEI 3 < 50) »DEI4 ( 50 ) »DG1 (50) »DG2 (50) . 363(50) .DG4 ( 50) * 

2 DC1 (50) .DC? (50) .DC3(50> »DC4(50) »DIJ1 (50) ,DIJ2(50) , 

3 DIX1 (50) .DIX2I50) ,DWM1(50) »DWN2(S0) »DKN1(50) ,DKN2(50> 
DIMENSION E1MTRX ( 8 > 8 ) »E2MTRX<8,8) *AMATRX(8,8) ,BMATRX(8,8> . 

1 CMATRX(8»8) ,FMATRX(8.8) »0LMTRX(8. 1) .SMATRX(S.l) . 

2 DUMMY (8) , DETERM (4. 4) »C(4) , ID (4) »X(3> . KID ( 3) » DXXX ( 4 ) . 

3 STORE (8»50) 

DIMENSION TITLE(U) »NREP(7) 

COMMON DL1 . DL2 . DL3 . DL4.DEI1.DE 12 ?DEI3,DEI4. DG1 ,DG2»DG3,D<34» 

1 DCl.DC2cDC3pDC4.DIJlfDIJ2oDIXl.niX2. DWN1 » DWN2.0KNI »DKN2» 

2 ElMTRXf E2 MTRX. AMATRX. BMATrX.CMATRX.FMATRX.DLMTRX.SMATRX. 

3 DUMMY, KM. KM. KO. KP.KA. KB. KC.KD. DETERM. B 
DO 999 11=1.7 

NREP(II)=0 

LINE=6 

READ (5f3000,END=5000). TITLE. NSTA 

READ (5.3001) NR00T.T0M6A.D0M6A,K<.KA.KB,KC.KD»KM.KN.K0. 

1 KP 


DO 35 N=J,NSTA 

CALL REPEAT (DL1 (N-1 ) . DL 1 ( N ) . DL2 (N-l ) . DL2 ( M) . DL3 (N-l ) . DL3 (N) , DL4(U- 
11 ) ,DL4(N) .X.X.X. X.NREP(l) ) 

CALL REPEAT ( DEI 1 (N-l) .DEI 1 (N) , DEI2 (N-l ) . DEI 2 (N) . DEI 3 (N-l ) ► DEI3 ( N) . 

IDE! 4 (N-l ) .DEI4(N) .X.X.X. X.NREPS2) ) 

CALL REPEAT (DG1 (N-l) . 0 G 1 ( N ) »DG2(N-1 > .DG2 (N) .DG3(N-1) .DG3(N) ,DG4(N- 
11) . 0 G 4 ( M ) . X , X # X . X . NREP ( 5 ) ) 

CALL REPEAT (DC1 (N-i > .DC1CN) .DC2(N-1) .DC?(N) »DC3(N-1) .DC3(M) , DC4 < N-l 3102160 
11) , DC4 (W) ,X» X.X.X. NREP (3) ) 


13102128 

13102129 

13102130 

13102131 

13102133 

13102134 
13102135 
13102136 
13102137 
13102138 
13102139 
13102140 
13102141 
13102142 
13102143 
13102144 
13102145 
13102146 
13102147 
135 02148 
13102149 
13102150 
13102151 
13102152 
13102153 
13102154 
13102155 
13102156 
13102157 
13102158 




000036 


CALL REPEAT (DIJK N-l ) pDIJKN) ,OIJ?(N-l ) .DTJ2(N) .01X1 (N-l) .DIXl(N) 

.13102162 

00 0ug7 


ID 1X2 (N-l) »DIX2(N> .X.X.X, X. NREP (4) ) 

13102163 

000035 


CALL REPEA T ( DWN1 ( N-l ) » DWN1 ( N ) , DWN2 ( N-l ) , OWN 2 ( N) . DKN1 ( N-l ) . DKN1 ( N ) 

.13102164 

000039 


1DKN2(N-1) .DKN2(N) .X.X.X .X. NREP (6) ) 

13102165 

000.040 

35 

CONTINUE 

13102366 

000041 


WRITE (6.4000) 

13102167 

QUO 042 


WRITE (6.4001) TITLE. NSTA 

13102168 

000043 


WRITE (6.4021) NROOT . TOMG A . OOMGA .KA . KB . KC . KD» KM. KN. KO. 

13102169 

000044 


1 KP 

13102170 

OC 0045 


LINE=LINE+NSTA+4 

13102171 

0 0 0 0 4 6 


IF (LINE-55) 39 .39.38 

13102172 

000047 

38 

WRITE (6.4022) 

13102173 

000048 


LINE=NSTA 

13102174 

000049 

39 

WRITE (6.4002) 

13102175 

COCO 50 


DO 40 N=1 » NSTA 

13102176 

000051 

40 

WRITE (6.4008) DL1 ( N) , DL2 ( N ) . DL3 (N ) . DL4 ( N) 

13102177 

000052 


LINE=LINE+NSTA+4 

13102178 

000053 


IF (LINE— 55) 44 .44.43 

13102179 

000054 

43 

WRITE (6.4022) 

13102180 

000055 


LINE=NSTA 

13102181 

000 056 

44 

WRITE (6.4003) 

13102182 



200 057 


DO 45 N=lrNSTA 



13102183 

000058 

45 

WRITE ( 6* 4008) 

DEI1(N) 

*DEI2(N) *f)EI3(N) *DEI4(N) 

13102184 

000059 

Co-0060 


LINE=LINE+NSTA-s-4 
IF(LlN£-55)49. 49*43 



13102185 

13102186 

000061 

48 

WRITE (6? 4022) 



13102187 

000062 


LINE=NSTA 



13102188 

000063 

49 

WRITE (6*4004) 



13102189 

000064 


DO 50 N=1,NSTA 



13102190 

000065 

50 

WRITE ( 6 r 4008 ) 

DG1 (N) * 

DG2 (N) *0G3(N> *DG4 (N) 

13102191 

000066 


LIME=LINE+MSTA+4 



13102192 

C 00067 
0 C 0 0 6 3 

53 

IF(LINE-55)54»54»53 
WRITE 1 6 * 4022 ) 



13102193 

13102104 

000069 


LINErNSTA 



13102195 

000070 

54 

WRITE (6*4005) 



13102166 

0GG07.1 

000072 

55 

DO 55 N=1*NSTA 
WRITE (6*4008' 

DC1 (N) , 

DC2 (N) * DC'S(N) *DC4(N) 

131021O7 

13102198 

000073 


LINE=LINE+NSTA+4 



13102199 

000074 


IF(LINE-55)59*59*53 



13102200 

000075 

58 

WRITE (6*4022) 



15102201 

0 0 C 0 7 6 


LINEsNSTA 



13102202 

000077 

59 

WRITE (6*4006) 



13102203 

WOO 078 


DO 60 N=1*NSTA 



13102204 

000079 

60 

WRITE (6*4008) 

DIJ1 (N) 

*DIJ2(N) *DIX1(N) *DIX2 (N) 

13102205 

0CQ08Q 


LINE=LINE+NSTA+4 



13102206 

000031 


IF (LINE-55) 64 *64 *63 



13102207 

000082 

63 

WRITE ( 6t>4022) 



13302208 

CO .063 

64 

WRITE (6*4007) 



13302209 

000034 


DO 65 N=1*NSTA 



13102230 

0UC085 

65 

WRITE (6*4008) 

DWNl(M) * 

DWN2 (N) >0KN1 <N) »DKN2 (N) 

13102211 

000036 


LINErNSTA 



13102212 

CO 00. 37 


WRITE (6*4022) 



13302213 

000036 


PI2 r 6*283165307179586 




000069 


TMOD r TO VGA * PI 2 




CO DC 90 


DM CD = DOMGA * PI 2 




000091 

C 




13102236 

0 00092 

C INITILIZE El * E2 * AND F MATRICES 


13102217 

000093 

C 




13102218 

UC 0093 

100 

DC 110 1=1*8 



131 02219 

0 C 0 0 9 5 


DO 110 Jrl > 8 



13102220 

000096 


IF (1-3)105*106*105 



13102221 

OCt 097 

105 

ElMTRX(I*J)=OoODO 



13102222 

000098 


E2MTRX ( I * J ) =0 « ODO 



13102223 

000099 


FMATRX<I*J)=0,0D0 



133 02224 

090 2.00 


GO TO 110 



13102225 

C C f. i 0 i 

106 

ElMTRX { I , J) =1 o ODO 



13102226 

00 Cl 02 


E2MTRX( I » J)=1.0D0 



13102227 

CO Cl 03 


FMATRX (I * J) =1 o ODO 



13102228 

0 G 0 1 04 

110 

CONTINUE 



13102.229 

0005.05 


OMGW=TMOD~DMOD 



13102230 

00 0 1C6 


DC 150 MMM=1 * MROOT 



3.3102231 

000107 


DOMGrOMOD 



13102232 

000108 


OMGL=OMGW:-DOMG 



13102233 

000109 


NN=100 



13102234 

000110 


CALL ROOT (NN) 



13102235 

OCOUi 


DO 130 1=1*8 



13102236 

C0C112 


DC 130 Jrl *8 



13102237 

CO J 1 15 


IF(I-J)125»126»125 



13102238 

000114 

125 

CMATRX ( I * J ) =0 . ODO 



13102239 

COC 115 


GO TO 130 



13102240 

/HU 

126 

CMATRX (I*J)=1.0D0 



13102241 



0 0011 7 

130 

000118 


000119 


000120 


000121 


000122 


0C0123 

135 

000124 


GC 0 125 


000126 


00C127 

136 

000126 


000129 


000130 

137 


OC 0 1 31 
000132 
0C0133 
COO A 34 
000135 
000136 
000137 
0 0 0 1 3 i 
0 C 0 139 
00 C 140 
00014.1 
C: t f. 142 
000143 
0 C01 44 
000145 
000146 
000147 
000146 
0001.49 
000150 
000151 
000152 
300153 
000159 
000155 
0 0 C 1 56 
0 U 3 1 57 
000158 
000159 
000160 
C v 0 161 
000162 
0 0 0 1 & 3 
000164 
COOi.65 
000166 
000167 
0 001.63 
000169 
G00170 
000171 
000.172 
000173 
000.174 
000175 
000176 


191 

C 

C SC! 

c 


142 

C 

C SOL 
C 


CONTINUE _ _ 

DO 135 N=1 > NST A 
CALL SETUP (OMGWfN) 

CALL MATMPY(E.lMTRX»CMATRX»AMATRX»P»3r «. 8*3) 
CALL MATMPY ( E2.MTRX » FMATRX » 8MATRX > 8 » 8 > 8 # 8 f 8) 
CALL MATMPY (BMATRX » AMATRX t CMATRX . 8 f 8 . 8 * 8 »'«) 
CONTINUE 

CALL SETUP 1 (DETNOW) 

CPRT=0M6W/PI2 

IF (LINE-56) 136* 136 » 137 

WRITE ( 6» 4009) OPRT t DETNOW 

line=line+i 

60 TO 138 

WRITE ( 6 «40095 OPRT » DETNOW 

LINE=1 

WRITE ( 6 > 4022 5 
EE = 2.D-12 

CALL ROOTB ( OMGW > DOMG > DETNOW « EE » KKK ) 

IF { KXK ) 822 » 140 » 822 
WRITE (6j4020) 

GO TO 30 
DO 1140 1 = 1 >8 

dlmtrx ( I > 1) =o« odo 

CALL SIMSZ 

ID(1)=1 _ 

ID<2)=2 ' 

ID<3)=3 

10(4) =-l _ 

IF (KK .EQ. 0) KK = 1 

GO TO <141>142. 143*144) ,KK 

DLMTR X < KM ti ) . = 1 . ODO 

.VE FOR DELTA (N) » DELTA (0) »DELT A (P) 

C(1)=CMATRX(XB»!(N) 

C (2>=CMATRX(KS*K0> 

C(3)=CMATRX(K8fKP) _ 

C ( 4 ) =~CMATRX { KB » KM; 

CALL SIMST ( C p ID ^ 4 f BLO » BHI ) 

C ( 1 ) =CMATRX (KC »KM) __ __ _ 

C(2)=CMATRX(KC»K0) 

C (3)=CMATRX(KCfKP) 

C ( 4 ) = -CMATRX < K.C f KM ) _ 

CALL SIhST ( C t ID 1 4 ? BLO > BHI ) 

C ( 1 ! =CMATRX (KO» KN ) 

C(2)=CMATRX<KD>KO) 

C<3)=CMATRX(KD»KP) 

C(4)=-CMATRX(KDrKM) 

CALL SIMST (C i ID? 4 r 3L0 » BHI ) 

CALL SlMSD (XrKID/DXXXd) ? KERR ? ITEGN ) 
IF(K£RR)310>145»510 
DLM7RX(KN«1)=1.0D0 _ 


.VE FOR DELTA (M) » DELTA (0) >DELT A (P ) 

C(l)=C(-1ATRX(KAsKM) 

C(2)=CMATRX(KA»K0) 

C(3)-CMATRX(KA»KP> 

C ( 4 ) “-CMATRX ( K A * KN ! 

CALL SIMST ( C > ID ? 4* BLO» BHI ) 


// 


13102242_ 

13102243 

33102244 

13102245 

13102246 

13102247 

13.102248 

13102249 

13102250 

13102251 

13102252 

13102253 

13102254 

13302255 

13102256 

13102257 

13102259 
13102260 
131 02261 
13102262 
13102263 
13102264 

13102265 

13102266 

13102267 

13102263 

♦ NEW 

13102269 

13302270 

13102271 

133.02272 

13302273 

13102274 

13102275 

13102276 . _ . 

33102277 

13102278 

13102279 . . 

13102280 

13102281 

13102282 

13102283 

3 3102284 

13102285 

13102286 

13102287 

33102288 

13302289 

13102290 

13102291 

13102292 

13102293 

13102294 

13102295 

13102296 

13102297 

13102298 

13102299 




.3 


H00177 
00 J 173 
000179 
000180 
000181 
0C01S2 
000183 
000184 
OU0185 
000106 
000107 
000168 
000109 
000190 
GOO. '.91 
000.192 
000193 
000194 
0001 2 b 
0001 26 
000 197 

00012 a 
000198 
000200 
000205. 
0002C2 
0 C -j 2 0 3 
C002C4 
COCc 05 
0 0 1 2 C 6 
000207 
00 '< 06 
000209 
C 0 2 1 0 
00021 1 
OOC 212 
0 00213 
001214 
•j 0 C 7 1 5 
OCl 

000217 
00C218 
GOT.! 19 
or, 220 
00:221 

0CC122 
000223 
000224 
UCG225 
00C226 
000227 
000228 
000229 
000230 
000231 
000232 
0 0 1 2.j 3 
r ,l '234 
0.10 2 35 


C<1)-CMATRX(KC»KM) _ 

C (2)=CMATRX(KCfK0) 

C(3)rCMATRX(KCfKP) 

C (4>=-CMATRX<KCpKN) 

CAUL S I MST ( C p ID » 4 p BLO p BHI i 
C(1)=CMATRX(KD»KM> 

C (2)=CMATRX(KDpK0) _ 

C < 3) rCMATRX (KD » KP) 

C (4) =— CiMATRX (KD p KN) 

CALL ST MST (CpIDp4pBL0p BHI ) _ _ 

CALL SIMSD(XpKIDpDXXX(1) pKERR > 1TEGN) 
IF(KERR>310p145p310 

143 DLMTRX(KOp1)“1.0D0 

C 

C SOLVE FOR DELTA (M) * OELTA (N) » DELTA <P ) 

C _ 

C(1)=CMATRX(KApKM) 

C (2) rCMATRX (KA »KN) 

C(3)=CMATRX<KA»KP> __ 

C (4) r-CMATRX (1<A pKG) 

CALL SIMST(CpIDp4’6L0pBHI> 

C(li=CMATRX(KD*T,M> _ 

C ( 2) rCMATRX t KB»KNi) 

C <35=CMATRX(K8»KP) 

C(4)r-CMATRX(KB»K0) 

CALL SIMST(C»ID»4pBL0»BHI) 
C<1)=CMATRX(KDpKM> 

C (2)=CMATRX(KD»KN) _ _ 

C (3)=CMATRX(KD»KP) 

C<4)=-CMATRXCKDpK0) 

CALL SI MST ( C :> ID p 4 ► BLO p BHI ) 

CALL SIMSD(XpKIDpDXXXU) pKERRp ITEGN) 
IF (KERR ) 310 p 145 p 310 

144 DLMTRX(KP_p 1) =1.000 

c 

C SOLVE FOR DELTA <M ) »OELTA<N> » DELTA (0) 

C 

C ! 1 ) r.CMAT RX ( KA pKM) 

C (2)=CMATRX(KA»KN) 

C i 3) rCMATRX (KA p!CO) 

' C (4)=-CfiATRX(KApKP) 

CALL Sl'MST ( C p ID p 4 j BLO p 8HI > 

. C<1)=CMURX(KP»KM> 

C (2)=CMATRX(KBpKM) 

C(3)=CMATRX(KBpK0) 

C(4)=-CMATRX(KBpKP) _ 

CALL SI MST ( C p ID p 4 p BLO > BHI ) 

C ( 1 ) rCMATRX ( KC > KM ) 

C (2)=CMATRX(KCpKN) 

C(3)=CMATRX(KCpKO)" 

C < 4 ) =— CMATRX < KC p KP 5 

_ CALL SIMST(C.pIDp4pBL0pBHI) 

CALL SIMSD(XpKIDpDXXX(1) pKERRpITEQN) 
IF(KERR)310p145>310 

14 5 CONTINUE _ 

GO TO <U41p 1142 p 1143# 1144) pKK 
1141 KSUB^K ID ( 1 ) 

DLMTRX ( KN p 1 ) =X ( KSU3 ) 

KSUB=XID(2) 

DLMTRX (KOp 1)=X(KSUB) 



. 13102300 

13102301 

13102302 

13102303 

13102304 

13102305 

__ 13102306 _ 

13102307 

13102308 

13102309 

13102310 

13102311 

13102312 

13102313 

13102314 

__ 13102315 _ 

13102356 

13102317 

_ 13102318 

13102319 

13102320 

13102321 

13102322 

13102323 

13102324 

13102325 

13102326 

13102327 

13102328 

13102329 

13102330 

13102331 

13102332 

13102333 

131C2334 

13102335 

13102336 

13102337 

13102338 

13102339 

13102340 

13102341 

13102342 

13102343 

13102344 

13102345 

13102346 

13102347 

13102348 

13102.349 

13102350 

1.3102351 

13102352 

13102353 

13102354 

13102355 
13102356 
13102357 
13102358 
1 3,1 02359 



/3 


0 'J 0257 


KSUB=KIQ(3> 

131 02360 

0 00236 


DLK7RX ( K? * 1 ) =X ( KSUB ) 

13102361 

000239 


GO TO 146 

13102362 

Q0C24C 

1142 

KSUE=KID(1) 

13102363 

0 0 0 2 i 


DLMTRX ( KM * 1 ) =X ( KSUB ) 

13102364 

000242 


KSU3— KID i 2 ) 

13102365 

GCU243 


DUMTRX (KO* 1)=X (KSUB) 

13102366 

00 0244 


KSUB=KID(3) 

13102367 

000245 


DLMTRX (KP * 1 ) =X (KSUB ) 

13102368 

0 C G 2 6 


GO TO 146 

13102369 

0002 4 7 

1143 

KSUB=XID(1) 

13102370 

000243 


DLMTRX (KM* 1 ) =X (KSUB) 

13102371 

000249 


KSUB=KI0(2) 

13102372 

000250 


DUMTRX (KN*1)=X( KSUB) 

13102373 

000251 


KSUBrKID ( 3 ) 

13102374 

000252 


DUMTRX (KP, 1)=X(KSUB) 

13102375 

000253 


GO TO 146 

13102376 

0 0 0 2 z> 4 

1144 

KSUBrKIDU) 

13102377 

000255 


DUMTRX (KM* 1)=X( KSUB) 

13102378 

000156 


KSUi3=K 10 ( 2 ) 

13102379 

000257 


DUMTRX (KN* 1 5 =X (KSUB > 

13102380 

000253 


KSUB=KID<3> 

13102381 

000259 


DUMTRX (KO* 1 ) =X (KSUB ) 

13102382 

GG0250 

146 

WRITE (6*4012) OPRT 

13102383 

0C0261 


DO 147 1-1*8 

13102384 

000262 

147 

DUMMY ( I ) =DUMTRX (1*1) 

13102385 

000263 


DO 149 N=1 * NST A 

13102386 

U 00264 


CALL SETUP (OMGWjN) 

13102387 

0002 j 5 


call MATMPY ( E2MTRX » FMATRX * AMATRX * 8 * 8 * 8 . P. > 3 ) 

13102308 

000266 


CALL MATMPY ( AMATRX * E1MTRX * BMATRX * 8 * 8 . 8 » 8 * ft ) 

13102389 

0 0 0 2 S 7 


CAUL MATMPY (BMATRX * DLMTRX fSMATRX * 8 * 8* 8* 8*1) 

13102390 

‘J J 0 J O 


DO 149 1=1*8 

13102391 

000239 


STORE ( I * N ) =SMATRX (1*1) 

13102392 

0C0270 


DUMTRX (1,1) rSMATRX (1*1) 

131 023*43 

000271 

149 

CONTINUE 

13102394 

UG0272 


WRITE (6*4013) (DUMMY (K) *K=1*4) 

13102395 

000273 


DO 1149 1 = 1 « NST A 

13102396 

000274 

1149 

WRITE (6*4008) (STORE (N* I ) *N=1 *4) 

13102397 

000275 


WRITE (6*4014) ( DUMMY ( K ) * K=5 * 8 ) 

13102398 

000275 


DO 1150 I=1*NSTA 

13102399 

Q0C277 

1150 

WRITE ( 6* 4008) (STORE (N* I ) *N=5*8> 

13102400 

0 (J u 2 78 


WRITE (6*4022) 

13102401 

000279 


L I NE=1 

13102402 

00 0230 

150 

CONTINUE 

13102403 

000231 

C 


13102404 

CO 02 22 

C END OF CASE 

13102405 

0 U Li 2 'a 3 

C 


13102406 

000134 


WRITE (6*4011) 

13102407 

000235 


GO TO 30 

13102408 

COG c-o'o 

310 

WRITE (6*4023) KERR 

131 02409 

00 JJ 37 


WRITE (6*4024) 

13102410 

0 C 0 2 3 8 


CALL PRINTM ( CMATRX * 8 * 8 * 8 * 12H CMATRX ) 


001239 


GO TO 30 

13102412 

C 00290 

3000 

FORMAT (11A6*4X*I2) 

13102413 

000291 

3001 

format (12, 2E12. 6*913) 

13102414 

000292 

3002 

FORMAT (4E12.6) 

13102415 

0 U 0 ? 9 3 

4000 

FORMAT ( 1H1 * 50X30HJOB E13102 VIBRATION ANALYSIS///) 

131 02416 

0002.94 

4001 

FORMAT (1H 1 1 A6 * 4X , 19HNUMBER OF STATIONS 12//) 

131 02417 

000296 

4002 

FORMAT (1H013X4HLU) ,29X4HL(2> *29X4HL(3) * 29X4HL ( 4) // > 

13102413 

000255 

4003 

FORMAT ( 1H012X5HEX ( 1 ) * 23X5HEI ! 2 ) * 28X5HEI ( 3) , 28X5HEI ( 4 > // ) 

13102419 



/4 


000297 
000298 
000299 
000300 
000201 
000302 
000303 
C 0 0 3 0 4 
C00305 
000306 
000307 
000308 
000209 
000310 
0003 U 
0 u 0 3 1 2 
0 0 C 3 1 3 
000314 
0 0 C 3 1 5 
000316 
000317 
000618 
0 00319 
000320 
000321 


4009 

4011 

4012 

4013 

4014 


4004 FORMAT 

4005 FORMAT 

4006 FORMAT 
1 //) 

4007 FORMAT 
1 //) 

4008 FORMAT 
FORMAT 
FORMAT 

format 

FORMAT 
FORMAT 
3 //9XE1 

4020 FORMAT 

4021 FORMAT 
1 5X ( 

4022 FORMAT 

4023 FORMAT 

1 CASE 

4024 FORMAT 
ll-'HICK 

2 69HKE 
3ITI0NS 

5000 STOP 
END 


( 1H013X4HG ( 1 ) »29X4HG(2>.*_29*4HG(3> »29X4HG<4)//>. 13102420. 

( 1H013X4HC ( 1 ) 1 29X4HC (2) »29X4HC f 3 ) » 2 3X4HC { 4) //) 13102421 

( 1H012X8HI SUB J1?25X8H DX ?25X3HI SUB X1.25X8HI SUB X213ln,2422 

_ 13102423 

{ 1H012X8HW SUB N1?25X8HW SUB N2*25X.1HK SUB N1.25X8HK SUB N213102424 

13102425 

(9XE15o8»3(lSXE15.8> ) 

< 1H 1 26X8H0MEGA = E15. 3 * 5X9H0ETERM " E15.8) 

( 14H0 END OF CASE ! 

( 1H0 > 53X8H0MEGA = £15,8///) 


( lHlf 15X1HVJ 32X1HM* 31X3HPHI » 31X1HY///9XE1 5 . 8» 3 ( 18XE1 5 . 8 ) ) 


131 02426 
13102427 
13102428 
13102429 
13102430 


( 1H0 » 11X7HV PRIME » 26X7HM PRIME? 25X9HPHI PRIME?25X7HY PRIME/13102431 


5,8? 3<18XE15.8> > 13102432 

(36HC 100 INTERATIOMS AND NO ROOTS FOUND) 13102433 

(19H NUMBER OF ROOTS I3?5X.13H TRIAL OMEGA F8.3» 13102434 

13H DELTA OMEGA F8. 3 • 5X . 814/// ) _____ _ 13102435 

C1H1) 13102436 

( 1H0 • 41X24HFAILUEE IN SIMST— KERR = T2»3X» 18HG0ING TO NEXT131 02437 

) . . . 13102438 

( 1HQ » 8X ? 1 OOHTHc COEFFICIENTS OE THE SIMULTANEOUS EQUATIONS 13102439 
WERE NOT SOLVED FOR THE INITIAL STATE VECTOR / 5X 13102440 

RE EXTRACTED FROM .THE.. FOLLOWING MATRIX VIA THE BOUNDARY.. COND13102441 
• ) 13102442 

13102443 



/JS 


0 ELT MATKPY * 1 • 710422# 35976 


000001 

SUBROUTINE MATMPY ( A . C » K1 i-Ml » K »M» N) 

000002 

IMPLICIT REAL*8 (A-HrO-Z) 

000003 

DIMENSION A(205 »B(20) *C(20i 

000004 

DO 10 1=1 >K 

00 0 0 0 5 

00 10 J=1»N 

000005 

1 1= (J-l ) '" Kl+I 

U 'JO 0 07 

ctn;=o,oDO 

000008 

DO 10 L=1»M 

0 0 0 009 

JJ=(L~1)*K1+I 

uuuuio 

KK=(J-1)*M1+L 

000011 

10 C ( II ) =C ( I I ) +A ( JJI *B (KK) 

0000X2 

RETURN 

0 0 U 0 1 3 

END 



,'j ELI PRINTM • 1 » 71 0427 » 53667 


000001 
00 0 ..' 02 
00 0 03 
U C 0 0 0 4 
OUL 0D5 
no 0006 

000007 
000008 
000009 
0 0 0010 
000011 
000 O’ 2 
000013 

oo i’ m 4 
000 15 
000 016 
000017 
000013 
000019 
0 0002.0 
mo o,u 
0000 12 
00 00 '13 

c-hu),:4 
0 0 0025 
000036 
000 0.37 
0CU028 


SUBROUTINE PRINTMCA*NR*NC»MAXR»TITLEY 
IMPLICIT REALMS (A-HfO-Z) 

C . . ■ . 

C FORTRAN IV PRINTM 

C SUBROUTINE TO PRINT ANY MATRIX WITH 5-WORD TITLE 

C CALL PRINTM < CMATRX t 8 * 8 > 8 * 12H CMATRX ) EXAMPLE CALL UP 

C 

DIMENSION A ( 1 ) »NHED<8> *TITLE(2> 

C MATRIX TITLE 

DATA B /’ COL’/ 

WRITE ( 6 1 22 ) TI TLE 

22 FORMAT ( 1H0 P.52X > 2A6) _ 

c ' ~ 


DO 50 1-1 »NC » 8 

IIsNC-I + 1 _ _ 

IF ( 1 1-8) 20 »20 ► 10 
10 1 1-6 

20 no 30 J=1.II _ _ 

30 NHED(J)=I+J-1 

WRITE ( 6 » 120 ) (B»NHED(J) ►J=1»II> 

CO 50 J-liNR _ ___ _ 

KL-J-f- ( I — 1 > *MAXR 
KN-KL+ ( 1 1 -I ) *MAXR 

50 WRITE <6*130) (Ji A (K) * K=KL»KH» MAXR_L .. 

RETURN 

120 FORMAT < 1H0 » 9X r 10 ( A6 # 1 4 r 4X ) ) 

130 FORMAT ( 4H ROW»I3»5Xf 1P8D14.7) 

END 


13102101 ” 

13102102 
1.3102103 
13102104 
13102105 _ 
13102106 
13102107 
13102108 __ 

13102109 
13102110 
13102111 
13102113 
131021 14 .. 

135 02115 
13102116 
13102117 
13102118 
13102119 
13102120 
13102121 
13102122 
13102123 - ^ 
13102124 
13102125 

*NFW 

13102127**-! 



1=) ELT REPEAT, 1.710422, 35979 


000001 


SUBROUTINE REPEAT (A > AA , 8 * 38 , CVCC VD t DO . E > EE tV VFF . NR ) 

13102 

fli 

000002 


IMPLICIT REALMS (A-H.O-Z) 



0 0 U 0 0 3 

C****##*- ******** C *$**#*#>!<***>**$**# jf$«*******#***$:f:****fc**$’f*!f'*>!:*********13102 

82 

000004 

C 

REPEAT READS IN A STATION CARD OR SIMULATES A REPEATED CARD BY 

13102 

A3 

COO 005 

c 

MOVING DATA. 

13102 

fl4 

000006 

c 

a.b.c.d.e.f old aa»bb*cc*dd*ef»ff NEW 

13102 

8 5 

000007 

c 

NR = NUMBER OF REPEATS FOR A PARTICULAR CARD 

13102 

86 

0CC003 

£***«£$*****«#S j!'***** fc^*#*****.*#**** *#>****#*:! ****£***i>************* 

13102 

87 

000009 

1 

IF(NR-i)400»100*100 __ 

13102 

88 

000010 

400 

READ (5.3002) A A . B8 * CC » DD » EE * FF » NR 

13102 

89 

OOQOU 

3002 

FORMAT ( 6E12.6.I3) 

13102 

90 

0 0 0 0 1 2 


GO TO 700 

13102 

91 

0 0 C U 1 3 

100 

aa=a 

13102 

92 

000014 


B3-3 

13102 

93 

i. 0015 


CC-C 

5 3102 

94 

0 0 1 0 1 5 


DD=D 

13102 

95 

000017 


CC;f 

13102 

96 

000013 


FF=F 

13102 

97 

C 0 0 0 1 9 


NR=NR-1 

13102 

08 

OUOOSO 

700 

RETURN 

13102 

99 

000021 


END 

13102100 



ii) ELT ROOT 1 1 1 710429 » 57628 


0C0001 


000002 
000003 
0 0 0 0 4 
000005 
C 0 C 0 0 6 

0 0 C 0 0 7 
0C000S 
000009 
OCGOIO 
OOCi.tl 
000012 
000013 
000014 
000015 
000016 

00001 / 
C00C18 
000019 
000020 


CALL ROOT ( N ! 

_n=_ number. _o.f search iterations 


S(l) . 

REGNAM 




ROOT * » 

S 

BlloSVBll 

• 

SAVE ml FOR RETURN 


DL 

AO » 0 » 81 1 

« 

GET THE CALLING SEQUENCE 


DS 

AO » C ALSEQ 

0 

PUT AWAY 


LMJ 

Bll » ROOTS 

0 

GO INT'IALIZE ROOTS 

CALSEO 

RES 

2 

0 

CALLING SEQUENCE 

retagn* 



0 

ITERATION RETURN ENTRY 


L 

311 1 SVBli 




J 

2»B11 




SVBli' ~+ o 

END 



& ELT ROOTB » 1 1 710429 » 57629 


/.!- 


000001 
C00002 
0C0003 
000004 
000005 
OOJOGo 
000007 
0 0 0 C 0 8 
000009 
000010 
000011 
000012 
CC0013 
000014 
000015 
C O' 0 0 1 6 
000017 
000018 
000019 
000020 
000021 
G0U022 
000073 
C00024 
000025 
00(J02b 
000027 
003025 
Of) 0029 
r c o o 3 o 
000031 
00032 
000033 
000034 
104235 
91)3 do 
C00037 
000038 
C00039 
UUC040 
u 0 0 041 
0CC042 
000043 
000044 
0 0 C 0 4 5 
000046 
000047 
0CDC48 
C o 0 049 
000050 
000051 
000052 
000053 
000054 
000055 
C00056 


C 

c 
c 

SUBROUTINE R007F CNN) 

C 

C NN = SEARCH ITERATION LIMIT 

C 

IMPLICIT DOUBLE PRECISION <A-H#0-Z> *NEW 

N = NN . . 

FLGA = 0 
FLGB = 0 
RETURN 
C 
C 

C . . 

ENTRY ROOTB(X>OX»F»EfK) 

C 

C X= X VALUE . 

C DX = SEARCH INCREMENT 

C F = F ( X ) 

C E = ERROR LIMIT 

C K = TERMINATION STATUS FLAG 

IF (F) 100» 9000 1 200 

C 

C F<u 
C 

100 CONTINUE ■ ‘ 

XMINUS = X 

FMINUS = F 

FLGB = F ' 

IF (FLGA .NE.O) GO TO 100G 
GO TO 300 __ 

C 

C F>0 
C 

200 CONTINUE 

XPLUS = X 

FPLUS = F .. .. ... 

FLGA = F 

IF (FLGB .NE. 0) GO TO 1000 

C ........ 

C TRY A NEW X VAKUE TO BRACKET THE ROOT 
C 

300 CONTINUE 

XLAST = X 
FLAST = F 
X = X+DX 
N = N-l 

IF (N .GE. 0) CALL RETAGN 
K = N 
RETURN 
C 

C DO LINEAR INTERPOLATION TO APPROXIMATE THE ROOT 
C 

1000 CONTINUE 



000057 


IF (F-FLAST .EG. 0) GO TO 

2000 

000058 


XI = CFJ.XLAST-X»FLAST)/(F- 

FLASH 

000059 


FLAST — F 


000060 


XI. AST = X 


000061 


X = XI 


000062 


no = i 


C0U06U 

C 



00 u 064 

C 

SEE IF NEW X IS IN THE PROPER 

INTERVAL" 

C 00065 

C 



0 0 0 06 4 

1100 CONTINUE 


000C67 


IF ( ( X-XMINUS ) * ( XPLUS-X ) ) 

1200 > 9000* 1303 

COOOS8 

1200 CONTINUE 


000059 


GO TO (2000 > 9000 ) t 110. 


0 C 0 0 7 Cl 

C 



00007 1 

C 

TEST TO SEE IF CLOSE ENOUGH 



0CQC72 C 

000073 " 1300 CONTINUE 

000074 IF (ABS(X-XLAST)-E .LE. 0) GO To 9000 

00C.075' CALL. RETAGN _ 

0: 0076 c 

000077 ' C INTERPOLATE USING THE INTERVAL BOUNDARIES 

CO 0076 C _ : 

OOOC79 2000 CONTINUE 

0000,30 X = CXMINUS*FPLUS-XPLUS*FMINUS)/(FPLUS-FM[NUS) 

OOOOSi 110 = 2 

0C0052 GO TO 1100 

0 0 00.33 C 

0000 34 C NOR,’- AL RETURN 

000035 ’ C 

000036 9000 X = 0 

000007 RETURN 

0U00S8 - - - - END 



13 ELT SETUP* 1 ,710422. 35981 


000001 
000002 
000003 
000004 
0 OC 005 
000006 
000007 
000003 
0 0 0 C 0 9 
000010 
000011 
0 C U 0 1 2 
000013 
000014 
000015 
000016 
000017 

oo'joia 

000019 
000020 
00C021 
000022 
000023 
OC 0024 
000025 
000026 
00C027 
000023 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
0 OO036 
000037 
000033 
00 J 039 
000040 
C i • 0 0 4 1 
000042 
000043 
000344 
000045 
0 J 0 0 4 6 
000047 
000343 
0C0049 
000050 
CO 00 51 
CC0052 
030053 
U 0 0 0 5 4 
000055. 
000056 


SUBROUTINE SETUP ( OMGG . NN> 

IMPLICIT REAL*8 <A-H*0-Z) 

DIMENSION DL1(50) *DL2(50) *DL3(50) *DL4(50) *DEU<50) *DET2<50) * 

1 DEI 3 (50) *D£ 14(50 ) *DG1< 50) *DG2(50) ■ D63(50> *DG4(50) » 

2 DC 1(50) * DC 2(50)* DC 3(50)* DC 4(50) »:>I J1 (50) *DIJ2(50) * 

3 DIX1( 50) *01X2(50) *DWN1(50) *DWN2(5(>) *DKN1(50) *DKN2(50) 
DIMENSION E1MTRX(8*8) *E2MTRX(8*8) * AMATRX ( 8 ■ 8> *BMATRX(8*8) » 

1 CMATRX (8*8) *FMATRX(8*8) sDLMTRX (0,1) *SMATRX(8*1) * 

2 DUMMY (8) * DETERM (4*4) *C (4 > * ID (4> * X ( 3) *KIO ( 3> *DXXX(4) * 

3 STORE (8*50) 

DIMENSION TITLE ( 11 ) * NP.EP ( 7) 

COMMON DL1 *DL2.*DL3 *DL4 *DEI1»DEI2* PEI3 *DEI4* DG1 *DG2 *DG3*DG4* 

1 DCl*DC2*DC3*DC4fDIJl*DIJ2*DIXl*niX2 ■ DWN1 * DWN2 * DKN1 * DKN2 * 

2 ElMTRX * E2MTRX * AMATRX* BMATRX * CMATRX * FMATRX * DLMTRX * SMATRX * 

3 DUMMY * KM * !<N * KO* KP* K A * KB * KC * XD , DETERM *8 
N = NN 

OMG = OMGG 
E1MTRX (2*1 )=DL1 (N) 

E 1MTRX ( 4 * 2 ) =DL 1 ( N ) #*2* . 5D0/DE 1 1 (N > 

E1MTRX(3*1)=-E1MTRX(4*2) 

ElMTRX ( 3* 2 ) =-DLl ( N) /DE 1 1 (N) 

E1MTRX (4* l)=DLHN)**S/6. DO/DEI 1 <N)-DC1 (N)*0L1(N)/D61 (N) 

E 1 MTRX ( 4 * 3 ) =-E 1 MTR X ( 2 * 1 ) 

ElMTRX (5t 5>-DL3(N) 

EiMTRX<a>6)=DL3<N)*#2*.5D0/DEI3(N) 

ElMTRX (7*5) ="E 1MTRX < 8 * 6 ) 

ElMTRX ( 7 > 6) =“>DL3(N) /0EI3 (N) 

ElMTRX ( 8 * 5 ) =DL3 ( N) **3/6 « 00/DEI 3 ( N) -DC3 ( N) *D~L3 (N) /DG3 (N) 
EiMTRX(8»7)=-ElMTRX(8*5) 

E2MTRX ( 2 * 1 ) -DL2 ( N) 

E2MTRX ( 4 * 2 ) L0L2 ( N ) **2* o 5DO/OEI2 ( N ) 

F2MVRX (3*1) --E2MTRX ( 4*2) 

E2M'fRX(3*2)=-DL2(N)/DEI2(M) 

E2MTRX(4*1>=DL2(N) **3/6 » DO/DEI 2 ( N) ~DC2 ( N> *DL2 ( N) /DG2 ( N) 

E2MTRX (4*3) --E2MTRX (2*1) 

E2MTRX ( 6 » 5 ) =DL4 ( N ) 

E 2 MTR X ( 7 * 5 ) =-DL4 ( N ) * * 2 * . 50 0/ DE 1 4 ( N > 

E2MTRX ( 7 * 6 ) =-DL4 (N > /DE 1 4 ( N ) 

E2MTR X ( 8 * 5 ) -DL4 ( N ) *-*3/6 . DO/DE: 4 ( M? -DC4 ( N ) *DL4 (N)/DG4(N) 

E2MTRX (8*6) =DL4 ( N ) '**2* . 5D0/DE 1 4 ( N ) 

E2MTRX ! 8*7) =-E2MTRX (6*5) 

FMATRX (1 *4)=0WN1 (N) S0F.G/3R6. C4DO*OMG-DKN1 (I I) 

FMATRX (2* 3)=-£DI J1 (N) ) *OMG**2 
IF (DIXI(M).NE.O.ODO) GO TO 1 
FMATRX (7*6) = O.ODO 

CO TO 2 ‘ 

1 FMATRX(7»6)=-i.D0/DIXl (N) 

2 FMATRX (1*7) =01 J2 (N) *DKN1 (N) 

FMATRX (1*8)=DKN1 (N) 

FMATRX (5*4) =DKN1 (N) 

FMATRX (5*7) =-FMATRX (1*7) 

FMATRX < 5* 8) =DWN2 (N) *0MG/386* 04D0*OMG-DKNl ( ti) —DKN2 ( N ) 

FMATRX (6*4) =FMATRX (1*7) 

FMATRX(6*7)=DIX2(N)*0MG**2-DIo2(N)**2*DKNl N) 
FMATRX(6*8)=FMATRX(5*7) 

RETURN 


13102 1 
13102 3 

13102 4 

13102 5 

13102 6 

13102 7 

13102 8 

13102 9 

13102 10 
13102 11 
13102 12 
13102 13 
13102 14 


13102 15 
13102 16 
13102 17 
13102 18 
13102 19 
13102 20 
13102 21 
13102 22 
13102 23 
13102 24 
13102 25 
13102 26 
13102 27 
13102 28 
13102 29 
13102 30 
13102 31 
13102 32 
13102 33 
13102 34 
13102 35 
13102 36 
13102 37 
13102 38 
13102 39 
13102 40 


13102 41 
131C2 42 
13102 43 
13102 44 
13102 45 
13102 46 
13102 47 
13102 48 
13102 49 
13102 50 





2 3 


U ELI SETUP! >1 V 710422 »’ 35983 


000001 
000002 
00000.1 
GOO00 4 
000005 
000006 
0 0 0 0 0 V 
000005 
000009 
000050 
.100011 
00 00 12 
000013 
00001** 
0000x5 
000016 
COCO 17 
0 C 0 0 \ 8 
OCOG19 
000020 
000021 
O0C022 
000023 
000024 
00C025 
C00026 
000027 
000028 
000029 
000030 


SUBROUTINE SETUP! (DET) 13102 52 

IMPLICIT REAL*8 <A-H»0-2) 

DIMENSION DL1(50) fDL2(50) »DL3(50) >DL4(50) >DEI1 (50) »DEI2(50) r 13102 53 

1 DEI3(50) p DEI4 ( 50 ) f DO 1(50) (DO 2(50) >003(50) » DG4 ( 50 3 » 13102 54 

2 DC1(50) »DC2<50> »DC3(50) »DC4(50) »DIJ1(50> »DIJ2(50> » 13102 55 

3 DIX1 (50) ?DIX2 ( 50 ) * OWN 1(50) *DWN2 (50 ) » DKN1 ( 50 ) »DKN2 (50) 13102 56 

DIMENSION E1MTRX ( ft* 8) » E2MTRX ( 3» ft ) > AMATRX ( 8 > 0 ) » BMATRX ( 8> 8) > 13102 57 

1 X ( 8 > 8) jEMATRX < 8 > 8) pDLMTRX ( 8 » l ) > SMATRX ( 8s 1 ) > 13102 58 

2 DUMMY (8) * DETERM (4* 4 ) >C (4 ) > ID (4) »2(3) « KID (3) >DXXX (4 ) t 13102 59 

3 STORE ( 8 > 50 ) 13102 60 

DIMENSION TITLE(li) 13102 61 

COMMON DL1»DL2»DL3»0L4»DEI1»DEI2»DEI3»DEI**»DG1»DS2*DG3»DG4» 13102 62 

1 DCi»DC2rDC3fDC4»DIJl»DIJ2 ( DIXl»niX2,DWNlrDWN2*DKNl»DKN2* 13102 63 

2 E 1MTRX » E2MTRX > AMATRX » RMATRX > X > FMA TRX > OLMTRX > SMATRX t 13102 64 

3 DUMMY»KM»KN»K0»KP»KA»KB*KC*KD»DETERM*8 13102 65 

DUMMY(l)=X(KA>KM>*(X<KB,:<N>*X(KC»KO)*XCK9»KP)+X(KBfKO)*X<KCfKP>*X{13102 66 

iKD»KN)+X<KB>KP)*X(KD»KO>*X<KC>KN)~X(KO»XM}*/<KC»KO)*X<K3*KP)-X(KC»13102 67 
2KN)*X(KB»KO)*X(KD»KP)-X(KB»KN)#X{XC*KP)*X(KDrKC)) 13102 68 

DUMMY ( 2 ) =X ( K A t KN ) * ( x ( KB > KM ) *X ( KC , KO > #X ( K 0 . KP ) +X ( KB t KO > *X ( KC , KP ) *Y ( 131 02 69 
lKD*KM)+X(KB»XP)*X(KD»KO)*X(KC»KM)-X(Kn>KM)*X(KC»KO)*X(KB»KP)-X(KC»13102 70 
2KM>*X<K8>K0)*XCKD*KP)-X(KB»KM)*X<KC»KP)*X(KD»K0> ) 13102 71 

DUMMY ( 3) =X (KA >KO) * (X (KB>KM) SX (KC >KN) *X (KD>KP) +X(K6»KN) *X (KC*KP) *X( 13102 72 
lKDfKM)+X(KBf KP)*X(KD»KN) *X(KC»KM)-X (Kn>K M> *X < KC >KN)*X (KB >KP)-X(KC » 13102 73 
2KM>*X<KB>KN)*X(KD>KP)“X(KnfKM)*X(KC?KP)*X(KD>KN> ) 13102 74 

DUMMY (4) =X (KA»KP>* (X (K3 j!<M) * x (KC >KN) *X (K9»KO>+X(K8»KN)*X (KC >KO) *X( 13102 75 
1KD > KM) +X ( KB pKO) *X (KDcKN) *X (KC»KM)-X(KO>KM)«X(!<C* KN) *X (KB»KO) —X (KC » 13102 76 
2KK)*X(KBrKN)*X(KD»K0)~X(KB»KM)=*‘X(KC»K0)*X<KD»KN)) 13102 77 

DET=DUMMY(1) -DUMMY (2) 4-DUMMY (3) -DUMMY (4) 13102 78 

RETURN 13102 79 

END _ 13102 80 
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SUBROUTINE S I MEG ( A » 8 . NNV~MM » N A > I TEMe DO » MND * KERR ) 

SOLVES MATRIX EQUATIONS - AX = B _ 

GAUSS ELIMINATION WITH COMPLETE PIVOTING ON ABSOLUTE LARGEST 
ELEMENT TO FORM TRIANGULAR MATRIX e WITH BACK SUBSTITUTION FOR 

SOLUTION VECTORS. 

, 


CALL SI MEG ( A • B r NNr MM t NA . ITEM* DO > NND.KEFR ) 

A = A ( 1 o 1 ) OF INPUT MATRIX 

B = INPUT VECTORS 

NN _ = NUMBER OF SIMULTANEOUS EQUATIONS. _ _ 

MM = NUMBER OF S-VECTORS. 

NA = DIMENSION OF MATRIX A, THAT TSi A(NA, — ) 

ITEM . . = TEMPORARY STORAGE (FOR PERMUTATION VECTOR) 

WITH DIMENSION - ITEM (NA) 

DO = DETERMINANT 

NNO = POWER OF TEN TO MULTIPLY. DETERMINANT .... 

KERR = ERROR CODE > SINGULAR RANK » =-l SOLVED EQUATIONS 

DOUBLE PRECISION A (NA *NA ) . B ( NA * 1 ) * PI VOTc XTEM* D , DD 
DIMENSION ITEM < 2) 


D - 1.0D0 

MO = POWERS OF TENS .FACTOR._F.OR DETERMINANT. ... 

NO = 0 

N-NN 

M=MM _ 


SET-UP THE PERMUTATION VECTOR. 

DO 1 I = 1*N __ 

1 ITEM ( I ) = I 

Nl = N-l 

DO 60 K=1*N 


SEARCH AND SET THE ABSOLUTE LARGEST ELEMENT AS THE PIVOT. 


PIVOT = 0.D0 

DO 10 I=K*N 

DO 9 J=K * N . 

XTEM = A ( I ? J ) 

IFCDABS(XTEM) .LE. DABS(PIVOT)) GO TO 9 

PIVOT - XTEM 

IS = I 

IT = J 

9 CONTINUE _ 

10 CONTINUE 

COMPUTE DETERMINANT AMD TEST FOR SINGULAR MATRIX. 


61210002 
61210003 
61210004 
61210005 
61210006 
61210007 
61210008 
61210009 
61210010. 
61210011 
61210012 
61210013 
61210014 
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61210032 
61210033 
61210034 
61210035 
61210036 
61210037 
61210038 
61210039 
6121 0040. 
61210041 
61210042 
61210043 
61210044 
61210045 
61210046 
61210047 
61210048 
6121 0049 
61210050 


11 


D = D*PIVOT 

IF (D.NE.O.DO) __ GO TO II 

IF MATRIX IS SINGULAR * SET THE RANK OF MATRIX A IN KERR 
KERR - K-l 


GO TO 100 _ _ 

XTEM = DABS(D) 
IF(XTEM.LE.I.DO) 


61210051 

. 61210052 

AND EXIT61210053 
61210064 

61210065 

61210056 

61210057 


GO TO 13. 



0 0 0 C 5 7 


D = D/10, DO 


61210058 

u 0 0 C hi B 


ND = ND + 1 


61210059 

COCO 59 


60 TO 11 


61210060 

CCC060 

13 

IF(XTEM.SE.O.IDO) GO TO 14 


61210061 

000063. 


P “ 0*10 • DO 


61210062 

000062 


ND = ND-1 


61210063 

000063 


GO TO 11 


61210064 

000064 

14 

CONTINUE 


61210065 

000065 


IFCK.EQ.IS) GO TO 30 


61210066 

000066 

C 



61210067 

000067 

c 

IF THE PIVOT IS NOT IN THE RIGHT ROW. INTERCHANGE ROWS. 

61210068 

0CCG68 

c 



61210069 

0CCC69 


DO 20 J=1.N 


61210070 

00D07C 


XTEM = A dS j J ) 


61210071 

00C071 


A(IS.J) - A (K » J) 


61210072 

000072 


A(K t J) - XTEM 


61210073 

00007 3 

20 

CONTINUE 


61210074 

000074 


DO 21 J=1.M 
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00007b 


XTEM = B(IS.J) 


61210076 

0 0 0 0 7 6 


BUSfJ) = B (K .J) 


61210077 

000077 


B(K .J) = XTEM 


6121 0078 

000070 

21 

CONTINUE 
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D = ~D 
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30 

IF(K.EQ.IT) GO TO 40 
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00 CO 01 

r 

V 



61210082 

O0C062 

c 

IF THE PIVOT IS NOT IN THE RIGHT COL. .EXCHANGE 

COLS AND RECORD 

61210083 

00 CO S3 

c 

THIS IN THE PERMUTATION VECTOR. 


61210084 

OOCOrV-V 

c 



61210085 

000065 


DO .31 1 = 1. N 


61210086 

00C086 


XTEM = Ad. IT) 


61210087 

000087 


A d » IT) = A ( I . K ) 


61210088 

0C0C38 


Ad.K ) = XTEM 


61210089 

COCO 69 

31 

CONTINUE 


61210090 
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D = -D 


6121.0091 
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c 
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c 

SET PERMUTATION VECTOR 


612100Q3 
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c 
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I = ITEM (IT) 
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ITEK(IT) = ITEM (K ) 
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0 0 CO 97 
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40 

CONTINUE 
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C 
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MULTIPLY THE K-TH ROW BY -Ad.K) /PIVOT AND ADD 

TO THE I-TH ROW 
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000103 


DO 50 I=K1»N 
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DO 50 J=Ki.N 
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000105 


A d . J ) = Ad.J) - A (X » J) /PIVOT * Ad.K) 
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000106 

50 

CONTINUE 
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0 0010 7 


DO 51 I =K 1 » N 
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000109 


DO 51 J=1.M 
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000109 


B(I.J) = B ( I . J ) ~ Ad.K)/PIVOT*B(K»J) 
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000110 

51 

CONTINUE 
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000111 

60 

CONTINUE 
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C 
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3ACKSUBST I TUT I ON FOLLOWS. 
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000115 


DO 70 J=1.M 
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B(N.U) = B(N. J5/AIN.N) 


61210117 






/ i 



MPUMIA 

1 L • 


i 

= K 
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= 0 » DO 

612.10125 

C n ..t25 
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000127 

72 

B ( I > IT ) 

= (B ( I » IT) - XTEM) /PIVOT 
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0C0128 

73 

CONTINUE 
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C 
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C 

USE PERMUTATION VECTOR TO EXCHANGE ROWS OF B-MATRIX. 
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OoClol 
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DO 81 

I - 1 ? N 
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000133 

79 

IF ( ITEM < I ) «EO« I ) GO TO 81 
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K 

= ITEM ( I ) 
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000135 


DO 80 

J=1»M 

. . 61210136 
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XTEM 

= B(KjJ) 
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0001 57 


B ( K ? J ) 

= 8 ( I c J ) 
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= XTEM 
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80 

CONTINUE 
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000140 


I VEM < I ) 

= ITEM(K) 
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00 01 4 1 


ITEM(K) 

= K 
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GO TO 79 
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0 2 0 - 4 o 

31 

CONTINUE 


61220144 

000144 
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61210145 
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DD 

= D 
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100 

RETURN 
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END 
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000001 


SUBROUTINE SIMST (C » K » M* 6L0 » BHI >' 

000002 


IMPLICIT REAL* 8 (A-H»0-Z) 

000003 


DIMENSION C(4)»K(4)»X<4) » ITEM (10) » K I ( 3 ) * A ( 3 » 3) • XX ( 3 ) , 

0 C COO 4 


KER = 0 

000005 


JR = IR+1 

OOOOOS 


GO TO ( 1 0 > 20 > 30 p 50 ) t IR 

000007 

10 

AC1.1) = C(l) 

000008 


A(l»2) = C ( 2 ) 
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Ad. 3) = C(3> 

COCCI .10 


XXC1) = C<4) 

0 00 0 .1 1 


GO TO 40 

000312 

20 

A ( 2 t 1 ) = C(l) 

000015 


A ( 2 ? 2 ) = C (2) 

0 000 14 


A < 2« 3) = C (3) 

0 G 0 0 1 5 


XX (2) = C ( 4 ) 

CL' 0 016 


C-0 TO 40 

000C17 

30 

A(3,l) = CCD 

00 00. 18 


A ( 3 » 2 ) = C C 2 ) 

000019 


At3»3) = C ( 3 ) 

000020 


X X ( 3 ) = C ( 4 ) 

000021 

40 

RETURN 

000022 

50 

KER = 4 

000023 


CO TO 40 

000024 


ENTRY SIMSQ ( XpKI rDET f KERR » IDUM) 

000025 


IR no 

000023 


K I ( 1 ) =1 

000027 


KIC2) = 2 

000028 


K I ( 3 ) = 3 

000029 
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1! 

o 

O 

o 

000030 


ND = 0 

000031 


IF < KER-9 ) 55 9 65 p 55 

000032 

55 

CONTINUE 

000033 


CALL SIMEO <A» XX t 3» 1 * 3» ITEM > D»NO * KER ) 

000031 


X(l> = XXU) 

000033 


X < 2 ) = X X ( 2 ) 

C 00036 


X ( 3 } = X X ( 3 ) 

000037 


IF ( D ) 56 » 58 f 56 

00C036 

56 

CONTINUE 

000039 


DET = D*10oD0**ND . 

GO 5 040 

58 

CONTINUE 

GO 0041 


IF (KER) 70 > 65 1 65 

000042 

65 

KER = 0 

000043 

70 

KERR = KER + 1 

000044 

45 

RETURN 
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entry simsz 

000046 


IR =0 
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return 

000048 


end 
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PROGRAM E13104 FORCED UNDAMPED LATERAL VIBRATION ANALYSIS OF 
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ABSTRACT 

A Fortran Program for the analysis of shaft whirl critical speeds and 
bearing loads considering bearing non-linearities and housing coupling in the 
shaft dynamics is presented. Included are descriptions of the structural 
idealization, method of analysis, and the program input and output. 

For any additional information concerning the analysis of this program 
contact Laveme K. Severud, Dept. 3252, Bldg. 2019A. 

NOTATION 

V - Shear (lb) 

M - Moment (in. -lb) 

<p - Slope (rad) 

Y - Deflection (in.) 

[S] - Elasticity Transfer Matrix 

[F] - Mass Transfer Matrix 

[A] - State Vector 

L - Length of Elasticity Element (in.) 

E - Modulus of Elasticity (psi) 

I - Area Moment of Inertia of Gross Section (in.^) 

C - Shape Constant for Shear Deflection (in. ) 

G - Modulus of Rigidity (psi) 

W - Weight of Lumped Mass (lb) 

Ij - Polar Mass Moment of Inertia (lb-in. -sec ) 

I x - Diametral Mass Moment of Inertia (lb-in. -soc 2 ) 

K - Spring Constant (lb/in.) 
to - Shaft Whirl Frequency (cps) 

Aw - Incitement in Frequency (cps) 
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d - Offset between corresponding stations in two beams (in.) 

2 2 

Y - Forcing function coefficient of “ (lb-sec ) for static imbalance 

2 2 

j3 - Forcing function coefficient of “ (in-lb-sec ) for dynamic imbalance 

7| - Constant applied lateral load (lbs) 

P - Bearing load (lbs) 

NOTE ; All unprimed quantities refer to top beam and springs between the beams. 
All primed quantities refer to the bottom beam and springs between it and 
ground. 

I. INTRODUCTION 

The classical techniques of calculating shaft critical speeds and bearing 
loads have beon shown by experience to many times yield very crude estimates. 

The need for high-performance, lightweight turbomachinery has greatly increased 
in the aircraft and aerospace industries, and, as a result, accurate prediction 
tools are required for turbomachinery dynamics. In accordance with this need, the 
computer program presented herein was developed. 

This program presents a computerised method of analysis for predicting 
bearing loads, shaft deflections, and critical speeds for shafts coupled by 
rolling contact bearings to the machine housing. The bearing nonlinearities, 
casing as well as rotor dynamics, and rotor-imbalance forcing functions are an 
included in the system dynamics analysis. 

Basically, it has the capability for analyzing the forced-undamped, lateral 
vibrations of two elastically coupled lumped parameter beams. The pregram com- 
putes the amplitudes of the shears, moments, slopes, and deflection attributable 
to harmonic forcing functions. Shear deflections, rotary inertia, and gyro- 
scopic effects for rotating shaft analyses are also included. 

The analysis is facilitated by a lumped-parameter model using a modified 
Mkylestad-Thompson transfer-matrix technique. 

The bearing is characterized as a spring which may be input as either 
constant values or load dependent functions defined by 

K » A • P B 

where A and B are constants and P is applied load, or by a table of P vs. K 
points. 



Forced Undamped Lateral 
Vibration Analysis 


Program Li 3104 
page 3 of 19 


As the bearings have nonlinear load-displacement characteristics, the 
solution is achieved by iteration- Rotor imbalances allowed by such factors 
as pilot tolerances and runouts and bearing clearances (allowing conical or 
cylindrical whirl) determine the forcing-function magnitudes. The computer 
program initially obtains a solution in which the bearings are treated as 
linear springs of given spring rates. Then, on the basis of computed bearing 
reactions, new spring rates are predicted, and another solution of the modified 
system is made. The iteration is performed a specified number of times and 
then solution for the next speed level is undertaken. It has been found that abou 
five to eight iterations result in changes in bearing spring rates and bearing 
reactions that are negligihly small. 

In order to facilitate the analysis the machine is characterized as a 
lumped mass parameter model. Figures 1 and 2 are typical models. Further 
breakdown of the model into bays is accomplished, A typical bay is shown in 
Figure 3, The bays consist of massless beam elasticity elements that connect 
tc lumped mass points. More discussion on this type of idealization for dynamic 
analysis can be found in References 1 through 4. 

II. METHOD OF ANALYSIS 

Analyses of complex multi-degree-of -freedom systems, of which the rotor- 
stator system is one, are commonly undertaken using matrix transfer techniques 
and the methods used herein are based upon this technique. The system is 
first reduced to an idealized mass-elastic model such as shown in Figure 2 and, 
then subdivided into bays of the type shown in Figure 3. 


End 




Start 


1st Interior Point 
2nd Interior Point 
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Then a column matrix containing all the types of load and deflection variables 
which can occur in the system, is made. This column matrix is called the 
"state vector." At the start, the state vector consists of the boundary 
conditions, both known and unknown. Next, a. matrix equation is written which 
transforms the variables of the state vector from their values at the start to 
their values at the first interior point in the system. Further relating the 
conditions at the second interior point to the first interior point intern 
relates the second point to the start. Thus far, two matrix transformation 
equations are required: the first is for a transformation of variables across 

the idealized mass (Figures 1; and £) and the second is for transformation of 
variables across the idealized elasticity (Figures 6 and 7). The procedure 
is continued until the last interior point and also the start is related to 
the end point. Then, by utilizing the boundary conditions at the end, the unknown 
conditions at the staid, and at the end can be evaluated. Once all the boundary 
conditions at the start are known, all interior conditions can be evaluated by 
re-walking through the system to the end. 

At the start of the first bay N “ 0, thus 

-fV- * 

Assuming the model starts with elastic elements we have going across the 
first elements in bay 1. 


-{A£}- a [E£] -U 0 }- 


And across the first lumped masses in bay 1 


lAjh a [F x ] -U£}- » [F^ [Ej[] -U Q }- 


Next, across the second elasticity 

“ [E 1 ] = [F x ] [%] -{t o b - [OjJ -iA o b 

In like manner, transformations can be made across each bay, expressing 
each state vector in terms of the previous state vector, and thus in terms of 
the initial state vector. 



[C N ] ) 


[■nJ -U 0 1- 
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In expanded form we get. 



The resulting above simultaneous equation are reduced to four simul- 
taneous equations by virtue of the four known boundary conditions at each 
of stations N ° 0 and N “ NSTA. Then, solving simultaneously the remaining 
boundary conditions at station N " 0 are evaluated? 

For instance, if 
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The following system of equations are solved: 


. - — 
0 


b -3 


d 17 

^8 

^19 


$ 

0 

— a 

CI23 

*2k 

^27 

^8 

d 29 


Y 

0 


d S 3 

d Sl* 

%7 

%8 

*$9 



0 


% 

d 6k 

d 67 

d 68 

d 69 


Y* 







1 

- -1 


After the entire conditions of state at N 3 0 are known, all other state 
vectors are evaluated by repeating the chain multiplication. 

All [F^] have elements containing co. Thus to obtain the dynamic response 
over the entire shaft speed range of interest, the aforementioned procedure 
is accomplished first for an initial given shaft whirl frequency co, Then the 
procedure is repeated for the additional number of frequencies, separated by 
the increment Aco, required to define the response of the system in the range of 
interest. 


III. THEORY AM) DERIVATION OF EQUATIONS 
A. STATE VECTOR 

The, state vector [Aj^ is defined as the column matrix of the shear, 
moment, slope, and deflection of the beam or beams at the end of bay N. The 
ninth element of the state vector is the constant one which permits the inclusion 
of the load constant in the transfer matrices. 

V 
M 




Y 

V« 

M« 

Y* 

1 


D 


; 
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3. MASS TRANSFER MATRIX 

Figure h ill ustrates a free body diagram of the lumped masses at 
bay N and the forces and moments which act upon the same. The corresponding 
equations of equilibrium and compatibility are presented in the same figure. 

Some of the terms may require more explanation than is given in 
the nomenclature. The term represents the "forcing function" caused by 

imbalance or conical whirling mode of motion and its associated centrifugal 
forces. The stator has an element labeled d^-J this element has infinite stiff- 
ness and permits the lumped masses of the rotor and stator at bay N to be 

located at positions other than immediately above or below the other. The 

o 

term (l TW - I,^,) <£>co accounts for what is often called the "gyroscopic effect." 

ll it A.1 

This term is largest in the bays that contain inducer or turbine wheels. [1] 

The transfer matrix across the rotor and stator mass at bay N is 
given in Figure 

. C. ELASTICITY TRANSFER MATRIX 

A free body diagram of the elastic elements that connect the adjacent 
lumped masses is shown in Figure 6. The resulting equations of equilibrium 
and deformation are also included in Figure 6. 

The terms in the equation are straightforward with the possible 
exception of the term 

. V 


This component expresses the deflection resulting from shear which 
nay be of importance in short stubby shafts. 


The transfer matrix across the rotor and stator elastic element 
is illustrated in Figure 7. 


D. PROCEDURE FOR NON-LINEAR LOAD-DEFLECTION BEARING SUPPORTS 


In applying this program to the lateral vibrations of turbo- 
machinery, the rotor is represented as one beam and the housing as a second 
beam. The bearings connecting them are represented as springs. However, the 

[lj Don Hartog, .J. ?., Mechanical Vibrations, New York, McGraw-Hill 19>6, 
lith ed., pp. 2o'2-2t>5 and’ pp. 270-3 7 3. 
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load deflection relationships of typical turbomachinery bearings are not 
linear , One relation given by palmgren [2] for roller bearings is of the form. 

5 » C-^P^/r 8 ) 

* • - 1 

For a given effective length, £, 

K = | = C 2 P 0,1 

which is a non-linear function of p. The force on the bearing, P, is a 
function of the unbalance in the systems, and is magnified greatly in tho 
neighborhood of resonance. As bearing loads increase, the value of K, or 
stiffness, increases. The effect upon a plot of bearing load versus shaft speed 
is to cause a leaning-over of the curve [3] 0 

The computer program treats this effect by calculating a spring rate 


where A and B are constants. A value of P is assumed (P q ), K is calculated 
from the above equ a tion and then a forced- vibration analysis is performed. 

Frpm the resulting deflections, the load in the bearing is calculated P 0 KT 
or, P = .KY-KX 1 if working with a flexible housing. This value of P will, in 
general, not agree with the value P Q upon which K was based. Thus, a new K 
is calculated and the cycle repeated until the resulting P agrees with the 
assumed ? q . All of this iteration and convergence is based upon a single fre- 
q\iency go. Once convergence on K is achieved for a given o>, the frequency is 
changed until the range of interest is investigated. The projected p for sub- 
sequent speeds is given by (starting with the iith cu) 

P 0 1 = ~ P 1 " 2 ) + P 1 " 3 


This prediction equation was found to be needed to obtain convergence in a 
sufficiently small number of iterations as the co approaches resonant co. 


[2] Palmgren, A* Ball and Roller Bearing engineering, SXF Industries, Inc. 

3rd Edition, 1959. 

L 3] Den Hartog, J. P., Op. Cit. 
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2. 


following cards are needed for the input to the program: 

Title C ard - Columns 1 through ?0 

Columns 71 - 72: Cumber of Stations or Days 

C ontro l C ard 

Columns 1-2: Number of Shaft Speeds at Which Response 

is to bn evaluated. 

1 - lh: Initial shaft speed, «,Rovs por second. 
i‘> - 26: increment in shaft speeds, Aa, UPS 
32: Value of a v 




Subscripts of 

35: Value of b / zero quantities 

of State Vector 

38: Value of c 

ill: Value of 

iih: Value of m 

il7: Value off] 

50: Value of 0 
53: Value of P J 




14 < 


/" \ 


j Subscripts of 
> non- zero quanta ti 
Stat 


uititics 
of State Vector 


f v. 
M 

Y 

v‘ 

M ! 

1 

Y 

1 

Y 


0 Li near 

56: Spring representation flag -! 1 *» K ■= AP 


-Pr 


/? 


D 


1^-1 c Table of P vs 



59 - 60: Nr 

'r'bor of iterations Desired 

A' j? 

1 

Ray Pat a Card Mo. 1 



Columns 1 •- 12: 

Value of 1(1) 


13 - 2h: 

Value of L(2) 


r>r* 

C.'l 


„ T 8 

vaj.ro 01 L 


(1) 


;,? - V. 


V'a? •; 0 of if (2) 
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?,nr r-a-l-r. Carl No. 

2 




Columns 1 - 

12: 

Value 

of El ( 1 ) 


13 - 

2h: 

Value 

of EI(2) 


23 - 

36: 

Value 

of El* (1) 


yt - 

)ifl: 

Value 

of El' (2) 

\' 

R 'iv Data Card No. 

_3 




Coli arms 1 - 

12: 

Value 

of Ci(l) 


13 - 

2h: 

Value 

of C:(2) 


23 - 

36: 

Value 

of G' (l) 


37 - 

U8: 

Value 

of G* (2) 

6. 

Bay Data Card No. 

Ji 




Columns 1 - 

12: 

Value 

Of C(l) 


13 - 

2U : 

Value 

of C(2) 


23 - 

36: 

Value 

of C f (1) 


37 - 

UO: 

Value 

of C (?) 

7. 

Bay Data Card No. 

3 




Columns 1 - 

■ 3-2: 

Valuo 

Of Ij 


13 ■ 

■ 2lj: 

Value 

of d 


23 * 

- 35: 

Value 

of Y 


37 • 

- LB: 

Valve 

of l\ 


1,0 . 
t-yy 

- 60: 

Value 

off? 


s-\ 

ol - 

- 72: 

Value 

! Of P 

8 . 

Pay Data Cayl_.il 

r* 

. O 




Columns 7- • 

- O - 

Value of W 


'? '0 
J. > 

- 1’V 


) Oi 'J 


r* 

<1 1' 

- ?6 : 

Value 

- of K 


-^*7 

Jr i 

- 48: 

v C. A Air 

a of K* 
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Ta ble T rv lit. rbr. trol Pare (or.lv if r vs K Table is to 1 
Columns 1-2: Number of Tables 

6-7: Bay for first P vs K Table data 

9 - 10: Bay for second P vs K Table data 

12 - l'': Bay for third V vs K Table data 

1 • - ii : Pay for fourth P vs K Table dal. a 

Table I np ut Vi t i e Card (only .if Table is to be input) 
Columns 1-70: Title 

71 - 72: Number of P vs K Points 

Table P vs k Data Cards (one card per P vs K Point) 
Columns 1-12: Value of P (lbs) 

13 - 2h : Valuo of K (ibs/inch) 


1.-5 *> 


THK CRT)® OF THE CARPS IN Til?. INPUT BECK ARE: 


Cards 1 and 2; 

'Cards 3 through 8 for first bay data; 

Repeat Cards 3 through 8 for each additional bay; 

If Tables of P vs K input are given, add card 9 and cards of type 10 and 11 
as required. 


JjJ-i 


irons 


Kaximum number of bays: 3>0 



C> (.!. 


•- ':'-i3Z'.p3a 


Program E131CP 
Page 19 ox’ 19 




1. Print out of: Title Card, number of roots or shaft speeds 

at which response is evaluated, initial value of shaft speed 
co, A co, and boundary condition control numbers. 

2. Print out of all bay input data 

L(l) - L(l) 

L(2) = 1.(2) 

L(3) « L f (l) 

Uh) “ I.' (2) 


For each shaft speed; 

Print out of K^, P^, P v at bearing stations for each iteration, 
print our value of and characteristic determinant, print out 
values of V. M, e>, Y, v', M * , <p’, Y* starting at the top of 
the print out with values for the "start" of the first bay, then 
the end of the first bay, then the end of the second bay, etc. 
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JOB E 1 3 10 4 VIBRATION ANALYSIS 


137S.Fr/SEC. M.B. SPEED CASE 2 ROTOR 


SK8705-52 


1.85 1.85 1.8 E 1=5 NUMBER OF STATIONS 20 


NUMBER OF ROOTS 8 


CNEGA 300.000 


DELTA OMEGA-5 15.000 


2 S 6/3 A 7 81 7 


L< 1 ) 


L < 2 ) 


t. 

M 


L (3) 


0.0 


0.0 


M / 

i 

| 


0.350000000 

01 

0.0 


0. 0 




0.300000000 

01 

0. 106000000 

01 

0. 106000000 

0 1 

( 


0.300000000 

0 1 

0.105000000 

01 

0. 105000000 

0 1 

rr: 


0 .350000000 

0 1 

0. 104000000 

01 

0. 104000000 

0 1 • 

. > i 


0.650000000 

00 

0. 60000000D 

00 

0.600000000 

00 

* 


0 .400000000 

00 

0.930000000 

00 

0. 930000000 

00 

I 


0 . 1 50000000 

01 

0.0 


0. 0 



0 .0 


0 . 266000000 

01 

0. 166000000 

0 1 



0 . 1 55000000 

01 

0. 920000000 

00 

0. 920000000 

00 

l 1 

4 

0.0 


0.960000000 

00 

0. 960000000 

0 0 

« 

: 

0 .0 


0. 1 2100000D 

01 

0. 12 1 00000 0 

oi : 


r* 

0.0 


0.0 


0. 0 




0.0 


0.270000000 

00 

0. 270000000 

oo 



0.140000000 

01 

0. 300000000 

00 

0.610000000 

00 

If 

V 

0 • 1 AO 00 00 00 

01 

0.406000000 

00 

0. 550000000 

00 



0.140000000 

01 

0.40CC00C0O 

00 

O.AOOOOOOOD 

00 • • 



0 .750000000 

00 

0.500000000 

00 

0.500000000 

00 



0.1 50 00 OOOD 

01 

0 . 500000000 

00 

0.500000000 

00' 

V 


0.500000000 

00 

0. 300000000 

00 

.< o.soooooooo 

00 


■ f 7 " 

0.370000000 

01 

E I ( 1 1 


E t ( 2 ) 


«r« 


nni 



L ( A ) 


0.35000000D 01 
0.300(100000 01 
0. 300000000 01 
0.350000000 01 
0.650000000 00 
O.AOOOOOOOD 00 
0.125000000 01 
0.0 

0.550000000 00 
0.0 
0.0 
0.0 
0.0 

0. 1 A 0000 OOO 01 
0.140000000 01 
0. 1 4000000D 01 
0.215000000 01 
0.150000000 01 
0.500000000 00 
0.370000000 01 ' 

FI 1A» 


2 > 31 
0 3 0 


• t!- 


& 1 


o.o 


0.0 


0.770000000 

10 

0. 770000000 

10 

0 . 0 


0. 0 


0.770000000 

10 

0. 770000000 

10 

0.657000000 

08 

0. 657000000 

08 

0.520000000 

1 0 

0. 520300000 

10 

0. 100000000 

09 

0. 186000000 

0 9 

0.21004000D 

10 

0.210000000 

10 

0.761000000 

09 

0. 240000000 

10 ... 

0. 500000000 

07 

0. 1 83000000 

12 

0.31 1000000 

1 1 

0.311 OOOOOO 

1 1 

0.A7500000D 

1 1 

0.475000000 

1 1 

0. 603000000 

09 

0. 359000000 

0 9 

0.425000000 

1 2 

0.162000000 

12 

0.600000000 

09 

0. 60 00 00 00 D 

0 9 

0 .195000000 

12 

0. 1 95000000 

12 

0. 266000000 

09 

0. 240000000 

09 

0 . 1 4200000D 

1 2 

0. 276000000 

12 

0. 1 81000000 

09 

0. 283000000 

09 

0 .440000000 

1 1 

0.44000000D 

1 1 

0. 232000000 

09 

0. 232000 00 D 

09 

0 .52000000D 

1 1 

0.91 0000000 

1 1 

0. 253000000 

09 

0. 258000000 

09 

0 .1 70000000 

1 1 

0.150000000 

1 1 

0.253000000 

09 

0. 258000000 

09 5 

0.170000000 

11 

0.150000000 

1 1 

0.376000000 

0 9 

0.376000000 

09 ■ 

0.165000000 

1 1 

0. 1 65000000 

1 1 

0. 244000000 

09 

0. 825000000 

09 

0 . 1 65000000 

1 1 

0. 16500000D 

t 1 

0. 157500000 

1 1 

0.157500000 

11 

0.165000000 

1 1 

0. 165000000 

1 1 

0.650000000 

10 

0.650000000 

1 0 

0.620000000 

1 1 

0. 1 60000000 

11 

0.650000000 

10 

0, 65000000D 

10 

0.120000000 

1 1 

0. 860000000 

1 1 

0.650000000 

1 0 

0. 650000000 

10 

0.103000000 

1 1 

0. 1 03000000 

1 1 

0.650000000 

10 

0. 650000000 

10 

0.600000000 

1 1 

0.600000000 

1 1 


/ 



) 



-e. 


i 



G< 1 ) 


GC2) 


0.0 

0.0 

0.6 2000 0 OC O 07 
0. 620000000 07 
0.620000000 07 
0 • 620000000 07 
0.620000000 07 
0 . 6 2 COO 000 O 07 
0.620000000 07 
0. 620000000 07 
0.620000000 07 
0.000000000 07 
0. 900000000 07 
0.115000000 03 
0.115000000 08 
0.115000000 08 
0. 1 1 5000000 08 
0.115000000 08 
0.11 5000000 08 
0. 115000000 08 


0.0 

0. 0 

0.620000000 07 
0. 62 0000 00 D 07 
0.620000000 07 
0.620000000 07 
0.620000000 07 
0. 62 000000 D 07 
0. 62 000000 D 07 
0.620000000 07 
0.620000000 07 
0. 900000000 07 
0. 900000000 07 
0. 1 1 5000000 08 
0. 1 1 5000000 08 
0. 1 1 5000000 08 
0. 11 5000000 00 
0. 1 1 5000000 08 
0. I 1 5000000 08 
0. 1 1 5000 00 D 08 


C< 1 ) 


C ( 2 ) 


CO) 


0.0 

0.0 

0.850000000 00 
0.570000000 00 
0 . 800000000-0 1 
0 . 100000000-01 
0. 100000900 00 
0 . 100000000 00 
0.190000000 00 
0.220000000 00 
0.280000000 00 
0. 250000000 no 
0.250000000 00 
O.17SO0CC0D 00 
0.230000000 00 
0 . 200000000-0 1 
0 . 900000000-0 1 
0 . 900000000-0 1 
0 . 900000000-0 1 
0 . goo 000000-0 1' 

i sueji 


0.0 

0.0 

0.850000000 00 
0.2 40000000 00 

e.aoococooo-oi 

0.1 0 0 0 0 00 OD — 01 
0.153000000 00 
O.IOOCOOOOO 00 
0.2 00 CO 00 OD 00 
O.220C0000D 00 
0.2800000 OD 00 
0.250000000 00 
0.250000000 00 
0.1^5000000 00 
0.1 0 C C 0 GOOD 00 
0.2 OOOOCOOD-Ol 
0. 900000000-01 
0.900000000-01 
0.909000000-01 
0.900000000-01 

DX 


0.300000000 00 
0.30 000 0 000 00 ■ 

0. 30000 OOOD 00 
0.3C900000D 00 
0 . 200000000-01 
0. 80000000 0-0 1 
O.lCOOOOOCO-Ol 
0 . 200000000-0 1 
0 . 200000000-01 
O.ICOOOOOOO 00 
0.800000000-01 
0.260000000 00 
0.260000000 00 
0 . 200000000-01 ••• 
0. 280000000-0 1 
0.250000000-01 
0. 17000000 0—0 1 
0.290000000 00 
0.300000000 00 
0.700000000-01 , 

GAMMACX ) 


0.0 

0.0 

0 . A 72 00 0000—0 1 

0 . 913000000-0 1 
0.320200000 OO 
0.213170000 01 
0 . 377000000-0 1 
0 . 0 

0 . 524C0000D-0 1 
0 . 266000000-0 1 
0 .253000000-01 
0 . 390000000-0 1 
O . 0 

0 . 129000000-0 1 
0 . 2 A 2000 OOD— 0 1 
0.221509000 01 
0 .200000000 00 
9.216000000 01 
O • 200000000 00 
0.216000000 01 


0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

-O.Q40COOOOD 01 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


0.0 

0.0 

0.0 

0.0 

—0.824000000— OA 
-0. 338000000-04 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 

0.980000000-04 

0.0 

0.113000000-03 

0.0 

0. 138000090-03 



G( 3 ) 


GCA) 


0.1 1 5000000 08 
0.115000000 08 
0. 1 15000000 08 
0.11 600000D 08 
0.116000000 08 
0. 115000000 08 
0 .1 16000000 08 
0.1 1600000D 08 
0.1 1600000D 08 
0.116000000 08 
0 . 1 16000000 08 
0.116000000 08 
0.116000000 08 
0.116000000 08 
0.1 1 5000000 08 
0.115000000 08 
0 .1 15000000 08 
0.115000000 08 
0.1 15000000 08 
0.115000000 08 

c ( a ) p SUB 


0. I 1 5099 00 O 03 

0.115090090 03 
0.1 I 5090 990 03 
0.116000090 03 
0. I 1 6000000 08 
0.1 15090000 03 
0. 1 1 6000000 08 
0.116000000 03 
0. 11600000D 03 
• • 0.11 600090D 08 

'■ 0. 1 16000000 03 
0.116990000 08 
0.116000000 03 
0.11 600000D 08 
0.115000000 03 
0.11 5000 OOD 03 
0.115000000 03 
0.115000000 08 
0.115000000 08 
0.115000000 08 

x “ FLEX 


0 .300000000 00 
0.300000000 00 
0.300000000 00 
0 . 300 00 00 00 00 
0.200000000-01 
0 .800000000-0 1 
0 .200000000-0 1 
0.200000000—01 
0 .200 00 OOOD— 0 1 
0 . I 0000000 D 00 
0.500000000-01 
0.270000000 00 
0.270000000 00 
0 .250000000-0 1 
0 .280900000-0 1 
0.320000000-0 1 
0.270000000 00 
0 .400000000-01 
0.300000000 00 
0 .700000000-01 

I SUB J 2 


0. 0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 

0.100000000 o* 
0.0 
0.0 
0.0 
0.0 

0. 1 50000000 04 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 

ETA 


0. 0 
0.0 
0.0 
0.0 
0.0 
0. 0 
0. P 

0.357000000-07 • 
0.0 
0. 0 
0.0 
0. 0 

0. 685000000-07 
0.0 
0.0 
0.0 
0.0 
0. 0 
0.0 
0.0 

BETA 



0 . 1 37000000 
0 . 1 37000000 
0.780000000 
0 .27000 OOOD 
0 .639000000 
0 . 1 0400 OOOD 
0 .217500000 
0.0 

0 .5 9700 OOOD 
0 .0 
0.0 
0.0 
0 .0 

0 .930000000 
0 .498000000 
0 » 2 9500 OOOD 
0 .340000000 
0.300000000 
0 .300000000 
0.570000000 


01 

0.0 

01 

0.0 

00 

0. 0 

00 

0.0 

01 

0.0 

01 

0.0 

02 

0.0 

0.0 

01 

0.0 

0.0 

0.0 

0.0 

0.0 

0 1 

0.0 

0 1 

0. 0 

9 1 

0. 0 

0 1 

0.0 

01 

0.0 

09 

0.0 

01 

0.0 


0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
o. 0 
0. o 
0. 0 

. : 0.0 
0.0 
0. 0 
0. 0 
0. 0 
9. o 
0. 0 
0.9 
0.0 
0. 0 
0.0 





W SUB N 1 


V! CUR K!-? 



0.0 

0.0 

0 . 436000000 01 • 
0 . 86900000D 0 1 ' 
0 . 151300000 02 
0.40400000D 02 
0 . 730000000 01 
0.0 

0.141 700000 0 2 
0 . 653000000 01 
0 . 617000000 0 1 
0 . 104300000 02 
0.0 

0.273000000 01 
0.465000000 01 
0.512000000 02 
0.810000000 01 
0.460000000 02 
0 . 980000000 01 
0.450000000 02 


0.700000000 02 
0.800000000 02 
0. 300 CO GOOD 02 
O.SOOCOOO Of) 02 
0.500000000 02 
0. 350000C 00 03 
0.137000000 03- 
0.0 

0.347000000 02 
0.0 
r o.o 
- 0.0 
0.0 

0.679000000 02 
0.5 85 COO COD 02 
0.145500000 03 
0.175000000 03 
0.650000000 02 
0.400000000 02 i 
0.100000000 03 


0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 






K SUB M2 


A SUB X 


b sue x 


0.0 
0 .0 
0.0 
0 .0 
0 .0 
0.0 
0 .0 
0.0 
0 .0 
0.0 
0.0 
0 .0 
0.0 
0 .0 
0 .0 
0 .0 
0 .0 
0.0 
0.0 
0.0 


0.0 

0.0 

o.o 

0.0 

0.0 

0.0 

0.0 

0.119300000 06 
0.0 
0.0 
0.0 
0.0 

0.119300000 06 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


O. 0 
0. 0 
o. o 
0. 0 
0.0 
0. 0 
0. 0 

0.31 1 000000 01 
0. 0 

n. n 

o. 6 

0. 0 

0.311 OOOOOD 01 
0.0 
0. 0 
o. o 
0. 0 
0.0 
0.0 
0.0 






ETA X 


K SUB X 


p sue ox 


P SUB X 



9.280112010 08 
0.145985400 08 

K SUB X 

0.280112020 08 
0.1 459854 00 08 

K SUB X 

0.280112020 08 
0.145985400 08 

K SUB X 

0.280112030 08 
0.14598S39D 08 

K SUB X 

0.280112030 08 
0.145985390 08 

K SUB X 

0.28011 2030 08 
0.145985390 08 

K SUB X 

0.280112030 08 
0.145985390 08 


0.100000000 04 
0.150000000 04 

P SUB OX 

0.109397500 04 
0.124513310 04 

p sue ox 

0.1 14096250 04 
0.111769970 04 

P SUB OX 

0.1 1 6 445620 04 
0 . 10539830D 04 

P SUB OX 

0.117620310 04 
0.102212470 04 

p sue ox 

0.118207650 04 
0.100619550 04 

P SUB OX 

0.118501320 04 
0. 998230940 03 


0.11879500D 04 
0 .990 2662 8D 03 

P SUB X 

0.118795000 04 
0.990266310 03 

P SUB X 

0 . 1 1 Q 79 500D 04 
0.990 266 3 3D 03 

° SUB X ' 

0.118795000 04 
0.990266350 03 

P SUB X 

0.118 79 500D 04 
0.990266360 03 

P SUB X 

0 . 1 18795000 04 
0.990266360 03 

P SUB X 

0.11 879500D 04 
0.990266360 03 





w 
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2MFGA = 0.300000000 03 


DETERM e -0.259610350 35 


c.o 

0.0 

0.0 

-0. 103691 3RD 02 
-0.270373900 02 
-0.34221856D 03 
-0.524400850 03 
-0.529623660 03 
0 . 658326300 03 
0 • 6 4001 406D 03 
0.642865350 03 
0.6 37302720 03 
0.633922470 03 
-0.1 92482980 04 
-0. 192303830 04 
-0. 191651970 04 
-o . 144524310 04 
-0.14180135D 04 
-0.81 82331 3D 03 
-0.766078000 03 
0.221405120-09 


0. 0 
0 . 0 
0 . 0 

-0. 72 1000 150 0 t 
-0. 392247 150 0 2 
-0.39802528D 03 
-0. 750855250 03 
-0. I 7283491 D 04 
-0. 17283491 D 04 
0. 1 1 01 349QD 04 
0. 229150670 04 
0. 352373090 04 
0. 5071 32880 04 
0.507132880 04 
0.403668470 04 
0. 229938760 04 
0. 155056950 04 
0. 478749400 0 3 
0. 154671550 03 
-0.563944370 03 
-0. 64 3296970-09 


-0 .225 4733 30-04 
-0 .225473330-04 
-0.225473330-04 
-0 .225196730-04 
-0.222455090-04 
-0 .220 773260-04 
-0.220562150-04 
-0 • 1 66827420-04 
-0 .1 6682742D-04 
-0 .120479220-04 
-0 .255383880-04 
-0 .496 1 24890-04 
-0 .899 322430-04 
-0 .899322420-04 
-0 .964723990-04 
-0 .10321 3230-03 
-0 .103329920-03 
-0 .103454470-03 
-0.103491660-03 
-0 .103459170-03 
-0 .103427840-03 

PHI PRIME 


-0. 282296440-03 
-0.282296440-03 
-0. 282296440-03 
-0.232988220-03 
-0. I 83 896430—03 
-O. 1 32777000-03 
-0.105457260-03 
-0.484 1 83640-04 
-0.484 I 8364D-04 
-0.919351 840-04 
-0. 995601 300-04 
-0. 845505640-04 
0. 386349260-04 
0. 386349260-04 
0. 1 04840630-03 
0. 21 85491 1 0-03 
0. 319374450-03 
0.4U 059930-03 
0.523282590-03 
0. 632966230-03 
0.717512090-03 


0 . 0 

-0. 1578761 3D 02 
-0.145706380 02 
0.37961990D 01 
0.24542494D 02 
0.471062880 02 
0.161 054650 03 
0. 1741 801 4D 03 
“0. 10137 6 980 04 
-0. 1021 l 5750 04 
-0.102115750 04 
-0. 1021 1575D 04 
-0. 1021 1 575D 04 
0.15 3759490 04 
0. 1 50 50 6350 04 
0. 1 44768280 04 
0.1 2231 1970 04 
0.87376249D 03 
0.65174363D 03 
0.494632530 03 
-0.638351 59D— 1 0 


0 . 0 

-0.729471750 02 
-0. 181428930 03 
-0.223165480 03 
-0. 12676562D 03 
0.21 0912590 03 
0. 34 1 562380 0 3 
O. 1791 26050 04 
0. 179126050 04 
-0. 703987690 02 
-0. 703987680 02 
-0. 703987680 02 
-0. 70 3987 68 D 0 2 
-0.215639180 05 
-0. 168241 090 05 
-0. 1 2 3826 60 D 05 
-0.043930920 04 
-0.539729610 04 
-0.287650980 04 
-0. 227986600 04 
0. 972931960-09 


-0 .363427730-05 
-0 .361367790-05 
-0 • 351 305910-05 
-0 .326454480-05 
-0.262081630-05 
0 . 1 2821 0990-04 
0.128 166390-04 
0 .128020260-04 
0 . 1 28020260-04 
0 • 1 27906300-04 
0.127906300-04 
0.127906300-04 
0.127906300-04 
0 .127906300-04 
0 .160456630-04 
0 .185206060-04 
0 .202739820-04 
0 .212220010-04 
0.218734450-04 
0 .221 218400-04 
0 .222060100-04 


-0.372246190-04 
-0. 103719240-04 
0. 134322070-04 
0. 346374300-04 
0.524063180-04 
0.406444240-04 
0. 29809ei4O-04 
-0.600854 760-05 
-0.600854 760-05 
-0.291903240-04 
-0.291903240-04 
-0.291983240-04 
-0.291903240-04 
-0. 291 983240-04 
-0.780101720-04 
-0. 1 36659200-03 
-0. 200302640-03 
-0. 305764 29D-03 
-0.407282030-03 
-0.4442373.30-03 
-0.619580890-03 


0.280112030 OR 
0.1 459R5390 08 


0.110640160 04 
0.994240650 03 


0.135503670 04 
O.14016161D 04 


0.2801 1 2030 08 
0.145985400 08 


0 . I 27 i l 5910 04 
0.123793240 04 


0.135503660 04 
0.140161 60D 04 


0.280 l 1 2030 08 
0.145985400 00 


0 . 131 349790 04 
0.13597742D 04 


0.135583660 04 
0.140161600 04 


0.2801 1203D 00 
O.145O0SAOO 00 


6.133466730 04 
0.142069510 04 


0.135501660 04 
0.148161600 04 


0.2801 12030 OS 
0.145985400 00 


0.134525200 04 
0 . 145 1 1 5560 04 


0.135583660 04 
0.14R161600 04 


0.2801 120$fe 08 •>- 
_ 0.1 45985400^08- 


K SUB X * 


0.1 350 544 3D 04. 

0.146638580 04 . 

P SU0 -OX ♦’ ”* i’ 


iU 135583660 04 
0.1481616^0 04 

*'* P SUB X - V.- 


I 
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J6 


V 


0.0 
o.o 
0 . 0 

-0.139527120 02 
- 0. 262860790 02 
-0.368922470 03 
-0.599709180 03 
-0.606589570 03 
0.749247050 03 
0.737891710 03 
0.731 14 2880 0 3 
0.725176140 03 
0.723342670 03 
-0.229486010 04 
-0.229184100 04 
-0.228215000 04 
-0.172590890 04 
-0. 168863750 04 
-0.970012300 03 
-0.908142330 03 
0. 605098190-09 

V PRIME 


0.0 

-0. 1621 75700 02 
-0. 147469510 02 
0.445087590 01 
0.2S778E19D 02 
0.485990280 02 
0.160824970 03 
0. 170676300 03 
-0. 1 18516030 04 
-0.119404320 04 
-0.119404320 04 
-0. 1 19404320 04 
-0. 1 19404320 04 
0. 182415950 04 
0. 1 78667380 04 
0. 172034930 04 
0 . 145909500 04 
0. 105 102S10 04 
0.784153740 03 
0 . S95 1 36400 03 
-0. 4976641 3D— 09 


. / ■ ■ 


13 0*1 459854 OO 

08 

M a i P; J * 7U6LJ 04 

0.147*00090 0* 

u. 

0. 

1 J558J&6D 
14S16160O 

04 

04 



OMEGA = 0.315000000 03 

M 

OETEOM 

= — 0, 31 2230 1 1 D 35 

PHI 




Y 


0. 0 
o. o 
0. o 


-0.963453910 01 
-0. 52 4907470 0 2 
-0. 46 0363 090 0 3 
-0. 82591 734 0 0 3 
-0. 194400300 04 
-0. 194400300 04 
0.127630890 04 
0.263038050 04 
0.403283040 04 
0. 579782870 0 4 
0.579782870 04 
0. 456495430 0 4 
0.249649740 04 
0. 1681 07850 04 
0. 409892630 0 3 
0.989823930 0 2 
-0. 74 94 1 4 96 0 0 3 
0. 153613660-08 


M PRIME 


-0 .278826550-04 

-0 .278 82 6550-04 

-0 .278 826S5D— 04 

-0.278465210-04 

-0 .274796690-04 

-0 .272702940-04 

-0 .272466980-04 

-0 .212375040-04 

-0 .2 1 237504D— 04 

-0 .16354 1 500-04 

-0.318949770-04 

-0.594787360-04 

-0 . 1 05588970-03 

■0 .1055889 70-03 

•0 .1 13030030-03 

■0 . 1 2 0 580560—03 

■0.120 70 7650-03 

•0 .120 8358 70—0 3 

0 . 1 20 86 1 35D-03 • . 

0 . 1 20 809970-03 

0.120769090-03 

“HI PRIME V 


-0.344927960-03 
-0. 34492796 0-03 
-0.344927960-03 
-0. 2837871 60-03 
-0.222834990-03 
-0. 1 601 61 880-03 
— 6. I 26493970-03 
-O. 573701 830-04 
-0. 573701 830-04 
-0.963218700-04 
-- — 0. 999 I 20240-04 
. -0.771 91675 0-04 
0. 705036200-04 
O. 705036200-04 
O. 1 4845561 0—03 
0. 2019071 1 0-03 
0.39975895 0-03 
0.507075410-03 
- ' .--- i 0.638356170-03 
0. 766582700—03 
0.865336580-03 

V PRIME 


STA X 

8 
1 3 

STA X 

8 
1 3 

STA X 

8 

13 

STA X 

8 
1 3 

STA X 

8 
1 3 

STA X 

■ 8 

13 


O. 0 

-O. 749582700 02 
-0. 185727400 03 
-O. 226231800 03 
-0. 12323041D 03 
0.239572080 03 
0.374509140 03 
0. 189878600 04 
0. 1 89070600 0 4 
■0.301897310 03 
■0.301897310 03 
■0.301897310 03 
■0.301897310 03 
■0.256543000 05 
■0.208677090 05 
■O. 148867300 05 
0. 1 0 1 1 84 ISO 0 5 
0.64 7700060 04 
0. 345028450 04 
0.273297620 04 
0. 899649420-08 


-0 .339072860-05 
—0 .3 3695 57 00—0 5 
-0 .326713170-05 
-0 .30 I 28494D— 05 
-0 .236820680-05 
0 . 1 25618100-04 
0.125568280-04 
0.125412520-04 
0.125412520-04 
0.1 25304990-04 
O • l 253049 9D— 04 
O .125304990-0* 
0.125 304990-04 
O .1 25304990-04 
0 . 16 4 07 76 50— O 4 
0 .193628760-04 
0.214622200-04 
0 .226001720-04 
0.233817000-04 
0.236795650-04 
0. 23780 203D-04 


K SU8 X 

0.200112030 08 
0.145985400 08 

K sun X 

0.2 80 1 1 2040 08 
0.145985400 00 


P SUR OX 

0.135451360 04 
0.147780850 04 

P SUB OX 

0.14511 5070 04 
0.177762400 04 


P SUB X 

0.15 4 77879D 04 
0.207743950 04 

P SU8 X 

0.154778790 04 
0.207743950 04 


k sue x 


P SUB OX 


p 


sun x 


0.280 11 2040 08 
0.1 45985400 08 \ 

K SUB X 


0. 149946930 0* 
0.192753170 04 

P SUR OX 


0.154778790 04 . 
0.207743950 04 

P SUH X 


0.280 1 1 2040 08 
0.1 45905400 00 

K SUH X 

0.280 1 1 2040 08 
0.1 48905400 08 

k sue X 


0.152362860 04 
0 .200248560 04 

P SUB OX 

0 . 1 5357082D 04 
0.203996250 04 

P SUB OX 


0.154778790 04 
0.207743950 04 

P SUB X 

0.154778790 0* 
0.207743960 04 

P 5U8 X 


0.2 80112040 08 
0,145985400 08 


0.154174810 04 
0.205970100 04 


0.15*779790 04- 
0.20774395 0 04 


■• k sue-x P so 3 p sue x 


-0.3*6993000-04 
- -O. 9S1 299050-05. ... ... . 
, 0.1 28670250-04 

'■ 0.325308900-04 

0.4 8438748D— 04 
0.367587840-04 
0.261 284 04 0-04 
-9. 996601 29D-05 
-O. 096681 290-05 

—9. 3 09 07 o 79 D— 04 

-0.309870790-04 
—9, 309870790-04 
— 0. 3 09 87 0 79 D— 04 
-O. 30987079D-04 
-0.815263700-0* 

-0. 1 43 7 7491 0- 03 

-0.212040350-03 
- -0.3303 98810-01 

-0.4*3726710-03 
-0.48525*000-03 
-0.67*4 86700-03 




ip 

CSVJ 


I 



13 


0*1 4*3 0854 0D 08 


OMEGA * 0.330000000 03 DETERM 

V M 


0.0 

0.0 

O.o 

-0. 184910750 02 

-0. 47 98 3601 (> 02 
-0.441474170 03 
-0.665303300 03 
-0.694267140 03 
0.05352C74D 03 
0.839994660 03 
0.832395570 01 
0.826133700 03 
0.826720550 03 
-0.274439960 04 
-0. 273969460 04 
-0.272S7416D 04 
— 0 • 2067051 7D 04 
-0.201664910 04 
-0.117223330 04 
-0. 107942400 04 
0.5201 1 7280-09 


0. 0 
0. 0 
0. 0 

-0. 126998460 
-0. 692609000 
-0.532191470 
-0. 904166060 
- 0 . 21 8200290 
-0. 2! 8209290 
0. 148627190 
0. 30284 1 54 0 
0.462643680 
0. 664234820 
0. 664234820 


0. 51 6876850 
0. 269854 780 


02 

02 

03 

03 

04 
04 
04 
04 
04 
04 
04 
04 
04 


0. 181385190 04 
0. 301 73432D 03 
0. 1 8268792 D 02 
-0. 9861 7083D 03 
0. 750674 190-09 


V PRIMP 


H PRIME 


0.0 

-0. 162212440 02 
-0.145039900 02 
O • 4 84 3 9527 D 01 
0.260848190 02 
0.48378445D 02 
0.153719820 03 
0.158614450 03 
-0. 138917340 04 
-0.13998205D 04 
— 0. i 3*5982050 04 
-0.139962050 04 
-0.139982050 04 
0.217129960 04 
0.212821510 04 
0 • 2051 58560 04 
0. 1 74735600 04 
0.126991520 04 
0 . 9 4774063D 03 
0.719325710 03 
-0.268755680-09 


0.0 

-0.749346410 02 
-0. 185158220 03 
-0.223903250 03 
-0. 11 8378060 03 
0.265522190 03 
0.400951 1 0 D 03 
0. 197099450 04 
0. 197099450 04 

— 0. 63 95084 0 D 03 

— 0. 63 95 084 OD 03 
-0.639508400 03 
-0.639508400 03 
-0.306369180 05 
-0. 240318070 05 
-0. 177790920 05 
-0. 121847730 05 
-0. 780739040 04 
-0.415701900 04 
-0. 329074130 04 
-0.450802420-08 


STA X K SUB X 

Q 0.280112040 08 

13 0.145985400 08 


$ T A X K SUO X 

0 0.280 t l 2040 08 

1 3 0.1 45 9854 OD 08 

STA X K SUB X 

0 ’ 0.200112040 08 1 

13 0.145985400 08 

STA X K SUB X 


8 0.280 l 1 2040 08 

13 0.145985400 08 

STA X K SU8 X 

0 0.200112040 00 

13 0.145905400 08 

STA X K SU3 X 

8 0.200112040 08 

I'—.. ” . 13- 0.145985400 05 


/ 
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a 0.260112040 06 

13 0.145965400 09 

OMEGA s 0.345000000 03 DETERM 

V M 


0.0 

0.0 

0.0 

“ 0.242449700 02 
-0.62793179D 02 
-0.501062790 03 
— 0.783393t 30 03 
-0.794983920 03 
0.974 857990 03 
0.956753030 03 
0.9S026082D 03 
0.943691250 03 
0.9481 14880 03 
—O .32981 4030 04 
-0. 3291 1 2390 04 
“0.327142220 04 
-0.248737190 04 
“0. 24 1969S7D C4 
“0. 14 11 50750 04 
“0.128679300 04 
0. 393242770-09 


0. 0 
0.0 
0. 0 

-0. 165316530 02 
-0. 904923930 02 
“0. 616342380 03 
“0.965534660 03 
-0.244669630 04 
-0.244669630 04 
0. 174315350 04 
0.350429150 04 
0.533^33350 04 
0.764037580 04 
0.764037590 04 
0.597043430 04 
0.290597440 04 
0. 1 94 877 68 D 04 
0. 141372170 03 
-0.956274670 02. . - 

-0. 129036530 04 
0.446391 370-09 


V PRIME 


M PRIME 


0 . 0 

-0. 71 7027970 02 
-0. 176951480 03 
-0. 21 3225390 03 
-0. 1 I 1654970 03 
0.286570810 03 
0.41 67931 1 0 03 
0. 198815600 04 
0. 198815600 04 
“0. 11 2530340 04 
-0. 11 2530 340 04 
“0. 11 2530 34 D 04 
“0. 11 2530 340 04 
-0.367938470 05 
-0.289477280 05 
-0.214778210 05 
-0. 147655140 05 
-0. 94 71 1079D 04 
-0. 504051 140 04 
-0.398758900 04 
-0.900071490-08 

STA X K SUB X 

8 0.28011204D 09 

13 0.1 45 9854 OD 08 

STA X K SUB X 

8 0.280112040 08 

13 0.145985400 06 

STA X K SUB X 

Q 0.280112040 08 \ 

13 0.1 45985400 08 ' 

STA X K SUB X 

8 0.200112040 08 

13 0.1 45985400 08 


8 0.2 00 1 1 204 D 08 

13 0.1459Q5400 08 


0.0 

-0.155489170 02 
-0. 138962900 02 
0.480104430 01 
0.249381760 02 
0.455589570 02 
0. 1 3665 1 40 D 03 
0. 1 3421 SI 30 03 
-0.16356260D C4 
-0.164837230 04 
-0.164837230 04 
-0.16483723D 04 
-0. 1 6 48372 3D 04 
0.259788290 04 
0.2S484386D 04 
0.245982260 04 
0.210466130 04 
0 • 154420640 04 
0. 1 1 5283970 04 
0.875058900 03 
-0.48402171D-09 



STA X K SUR X 

8 0.280112040 09 • .-v 

13 0.1 45 98540 D_08 

sja : x v ; ■ - - k sub x .. .. . 
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1 3 


0.145985400 03 


V • £.\J -UOli fO U<* 

0.372912780 04 


0.203070050 04 
0. 372973540 04 


V 


OMEGA - 0.360000000 03 OETERM = —0.465111110 35 


M 


PH! 


Y 


0.0 

0.0 

0.0 

-0.315776130 02 
-0.81*428670 02 
-0.569345940 03 
-u. 697063910 03 
—0 .91 199C820 03 
0 . 1 l 1870970 04 
0. 1 0995030D 04 
0.10900834D 04 
0.108336580 04 
0. 109349530 04 
-0.39923208D 04 

-0.393212070 04 
-0.395464400 04 
-0.301430010 04 
-0.292367550 04 
-0. 1711 39380 04 
-0. 1 5492546D 04 
0. 443776570-09 

V PRIME 


0 . 0 
0. O 
0. 0 


-0. 21 525206D 

02 

-0. 1 1 7520230 

0 3 

-0. 71 5331530 

03 

-0. 1 069966 l D 

04 

-0. 274354 380 

04 

-0. 274354380 

04 

0.206471 300 

04 

0.4085 70 80 D 

04 

P. 61 8290420 

04 

0. 884431 750 

04 

0. 894431 750 

04 

0.670301 ISO 

04 

0. 31 1973960 

04 

0. 208590 050 

04 

-0. 0991 52960 

02 

— 0.254567700 

0 3 •- 

-0. 1 685591 00 

04 


0. 132899910-08 
M PRIME 


-0 .49471 4290-04 
-0 .494 714290-04 
-0 .494714290-04 
-0 .49394 1620-04 
-0 .485726210-04 
-0.48 1 7231 2D-04 
-0 .481397660-04 
-0 .398375780-04 
-0 .398375780-04 
-0 .352490460-04 
-0 .597650420-04 
-0 • 102268200-03 
-0 .172717380-03 
-0 .172717380-03 
-0 • 1 83880700-03 
-0 .194586250-03 
-0 . 194 7471 80-0.3 
-0.194868890-03 
-O .19481 9080-03 
-0.194666720-03 
-0 .194578200-03 

PHI PRIME 


-0. 598002240-03 
-0.598902240-03 
-0. 598902240-03 
-0.489427120-03 
-0.380J 1 1 320-03 
— '0. 2707 4 766 0—03 
-0.211 540950-03 
-0.937487420-04 
— 0. 9 37 4 07 A 2 0—04 
-0. 1 1 0992600-03 
-0. 949548750-04 
-0.3643791 20-04 
O. 21 8051 430-03 
0. 218051 430-03 
0.347235470-03 
0.56624471 0-03 
0.75601 229 D— 03 
0. 931 264200-03 
0.114 423370-02 
0. 1351 75280-02 
0.1511 06650-02 

Y PRIME 


0.0 

-0. 1 38084430 02 
-0. 123959030 02 
0.404376800 01 
0.215241780 02 
0 • 38780451D 02 
0 . 104893460 03 
0.917834660 02 
-0. 1 93891700 04 
-0. 195418890 04 
-0. 195418890 04 
-0.195418890 04 
-0.19541889D 04 
0.313162720 04 
0.307490070 04 
0.297215900 04 
0.255569200 04 
0.189424090 04 
0.14147180D 04 
0. 107394530 04 
-0. 1 39436910-09 


STA X 

8 

13 

STA X 


0 . 0 

-0. 634240270 02 
-0. 1 56778290 03 
-0. 1 89608440 03 
-0. 102235320 03 
0.299326600 0 3 
0.41 5753200 03 
0. 1 9 202559D 04 
0. 192025590 04 
-0. 102216610 04 
-0. 1822 16610 04 
-0. 18221661 004 
-0. 182216610 04 
-0.445430220 05 
-0. 351567070 05 
-0.261654050 05 
-0. 180482820 05 
-0. 1 1 5901 14005 
-0.616542800 04 
-0.487434510 04 
-0.466121720-08 


-0.215355390-05 
-0 .213570040-05 
-0 .204908950-05 
-0 . 1 83502430-05 
-0.1 29763350-05 
0.1 10825430-04 
0.1 10766330-04 
0.1 106051 40-04 
0.1 10 6051 40-04 
0.1 1 0 505 1 60— 0 4 
0.110585160-04 
0.1 10595160-04 
0 .1 10585160-04 
0.1 10585160-04 
0 .178 175480-04 
0 .230 145410-04 
0 .26741 2760-04 
0 .287790590-04 
0.301762810-04 
0 .307030570-04 
0 .300861230-04 


K SUB X 

0.28011 2040 09 
0.145985400 08 

K SUB X 


P SUO OX 

0.232890950 04 
0.482974510 04 

P SUR OX 


P SUB X 

0.234345960 04 
0.490874900 04 

P SUB X 


8 0.280112040 08 

13 0.145985400 08 


0.233618460 04 
0.496924710 04 


0.234345960 04 
0.490874900 04 


STA X K SUB X 


P SUL’ OX 


P SUB X 


8 0.280 11204D 08 

13 0.145985400 03 


0.2 339822 1 D 04 0.234345960 04 

0.409899810 04 0.490874900 04 


sta x k sue X 


p sub ox 


p SUB X 


0 9.2 80 1 1 20 4 0 08 

13 0.145985400 08 


0.234164080 04 
0.439007350 04 


STA X K SUB X 


P SUB OX 


0.234345960 04 
0.490074900 04 

P SUB X 


8 0.28011204D 08 

13 0.145985400 08 


0 .214 2550 2D 04 
0.490 38 l 130 04 


0.234345960 04 
0.490874900 04 


STA X K SUB X 


P SU« OX 


P SUB X 


-0.22421 253D-04 
-0.61 1 042730-05 
0.853398480-05 
0.200611 55 D— 04 
0.293432810-04 
0. 1 87927650-04 
0. 952914220-05 
-O. 21 2527340-04 
-0. 212527340-04 
-0. 374354430-04 
-0. 374354430-04 
-0.374354430-04 
-0. 374354430-04 
-0. 374354430-04 
-0. 950842130-04 
-0.173228140-03 
-0.262216970-03 
—0.440808020—03 
-0.6091 81 760-03 
-0.672095390-03 
— 0 * 924 585950*03 


8 

13 


0.280112040 08 
. 0.1 4598540D 08 


0.234300490 04 
0.490628020 04 


0.234345960 04 
0 . 490 974900, 0* 


-STA X •; s K SUB X- 


P SUB ox' 


P SUB X 




/ 
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OMEGA = 0.375000000 03 

M 


0.145985400 03 0.490751460 04 

D ETERM a -0.502421610 35 


0.490874900 04 


0.0 

0.0 

c.c 

-0.M018406D 02 
-0.105884970 03 
-0.648741860 03 
- 0. 10 J032.39D 04 
-0. 105004020 04 
0. 129341940 04 
0 • 127040620 04 
0 . 1 26004490 04 
0 . 1 254 4 27 30 04 
C. 127200670 04 
-0.488242190 04 
-0.486778700 04 
“0.482960440 04 
-0.368981580 04 
-0.356819810 04 

-0.200569710 04 
-0.1 M/JO f 0661} 04 

0. 321279000-09 
V PRIME 


0.0 

-0. 1 03632800 02 
-0.96199008D 01 
0.21 1433800 01 
0.145313430 02 
0.258773710 02 
0.510252660 02 
0.223985470 02 
-0.232106110 04 
-0.233942880 04 
“0. 233942 80 D 04 
-0.233942880 04 
-0.233942800 04 
0.381499900 04 
0.37498323D 04 
0.363014100 04 
0.313833940 04 
0.235132310 04 
0. 1 75687380 04 
0.133385470 04 
- 0 . 187553290-09 


8 

13 


8 
1 3 


8 

13 


8 

13 


0 

13 


0. 0 
0. 0 
0 . 0 

-0. 27880565 D 02 
-0. 152292520 03 
-0.833910020 03 
-0. 1 1 5742430 04 
-0. 3081 05890 04 
-0.300105090 04 
0.247347Q4D 04 
0.481540 830 04 
0. 724283150 04 
0. 103347400 05 
0. 103347480 05 
0.771745610 04 
0. 334 t 6591 O 0 4 
0.22 2552 19D 04 
-0.420562120 03 
-0. 4 7 6 ‘"orpin o 3 
-0. 220 7845f>D 04 
0. 153676100-08 

M PRIME 


0. 0 

-0.471241600 02 
-0. I 1 7640460 0 3 
-0. 145669030 0 3 
-0.880336000 02 
0. 29837091 O 0 3 
0. 30785561 O 0 3 
0. 17199408D 0 4 
0. 171994080 04 
-0.282705640 04 
-0. 282785640 04 
-0.282705640 04 
-0.282785640 04 
-0.545250570 05 
-0. 431 R26570 05 
-0. 322456000 05 
-0. 2 23216840 05 
-0. 143520910 05 
-0. 7631 25660 0 4 
-0.602919710 04 
-0. 2 784 87 28 0-0 8 


3o 


STA X 


a 

13 


K sua x 


0.280 112040 08 
0.1 459854 OD 03 


0.28011 204D 08 
0.1 45 9854 00 08 


X SU3 X 


0.28011 2040 08 
0.148985400 08 


K .SUB X 


0.28011 2040 08 i 
0.145985400 03 \ 


0.280112040 08 
0.145985400 08 


0.280112040 03 
“0.145985400 08- 


-0 .594987980-04 
-0 .594987980-04 
-0 .594987980-04 
-0 .593995930-04 
-0 .583347460-04 
-0.578 36 1950-04 
-0 .57 7999880—04 
-0 . 4 85589370—04 
-0 .485539370-04 
-0 .448004450-04 
-0 .738995880-04 
-0 . 1 23 806910-03 
-0 .206 194520-03 
-0 .206 194520-03 
-0.219 1561 20-03 
-0 .231 307000-03 
-0.231 480480-03 
-0 .231590060-03 

-O . :»3 I *■>:» 7 . u> — o 3 
-0.23 1 2821 00-0.3 
-0.231 167 1 sn-03 

PHI PRIME 


-0 .142690210-05 
-0. 141372560-05 
-0.1 34909710-05 
-0.118703310-05 
-0 .75997930D-06 
0.101734100-04 
0.101676730-04 
0.101530060-04 
0.101530060-04 
0.101582200-04 
0.101 582200-04 
0.101582200-04 
0.101532200-04 
0 .101582200-04 
0. 184447010-04 
0 .248375660-04 
0 .294 38 30 RD— 04 
0 .319623100-04 
0 .336919710-04 
0 .343499660-04 
0 .345695960-04 


P SUB OX 

0.27078485D 04 
0.634653560 04 

P SUB OX 

0 .271 838780 04 
0 .6406991 20 04 

P SUB OX 

0 .272365740 04 
0.643721900 04 

P SUB OX 

0.272679220 04 
0 .645233290 04 

P SUB OX 

0.272760970 04 
XI. 645988980 04 

P SUE OX 

0 .272826840 04 
0.64*366830 04 


P SUB X 


0.272892710 04 
0.646744680 04 


0.272892710 04 
0.646744680 04 


o SUB X 


0.272892710 04 
0.646744680 04 


0.272892710 04 
0.64674468D 04 


0.272892710 04 
0 . 646 74 4 68D 04 

. P SUB X 

0 .272892710 04 
'0 .646744680 Of 


-0.717256360-03 
-0. 71 7256360-03 
-0.71 7256360-03 
-0.585148620-03 
-0. 453 1 55610-03 
-0.372208310-03 
-0.251201 280—03 
-0. 1 1 09391 4D-03 
-0. 1 1 0939140-03 
-0. 1 16784560-03 
-0. 899897780-04 
-0.12429275 D— 04 
0. 29607a 4 80—03 
0. 2 96 0 74 4 8 D— 03 
0. 451 148450-03 
0.7131 75650—03 
0.939887660-03 
0. I 1*785 73 0-02 
0.1401844 70-02 
0.1 64851 250-02 
0. 1 83787970-02 

Y PP1ME 


— O. 1 52 8875 1 D— 04 
-0.437247410-05 
0. 550942760-05 
0. 1 3722967D— 04 
O. 1 B92 1 6560—04 
0.913710580-05 
0. 786549400-06 
—0.2 72 770270—04 
-0.272776270-04 
-0.401748280-04 
-0.4017*8280-04 
-0.401748280-04 
-0.401748280-04 
-O. 401748280-04 
-0. 1 01205680-03 
-0. 1 87401 980-03 
-0.287064160-03 
-0.497813090-03 
-0.695526130-03 
-0.769874140-03 
-0. 1 055 41 74 0-02 
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8 0.280112040 

13 0.145985400 

08 

08 

0.272859770 04 
0.646555750 04 

0 • 2720927 ID 
0 • 646744680 

04 

04 


OMEGA = 0.390000000 03 

DF.TERM 

= -0.525402020 35 



V 

M 



PHI 



0.0 

0.0 

0.0 


“0 • 

53 38 

42900 

02 

-0. 

1 37607130 

03 

— 0 . 

74 

P6S2D 

03 

-0. 

1191 

6 4900 

04 

-0. 

1216 

48330 

04 

0 . 

1512 

4 3880 

04 

0. 

1 464 

62490 

04 

0. 

1473 

33430 

04 

0 • 

1469 

0 1150 

04 


0.149839920 04 
-0.605706440 04 
-0.4017071 ?.D 04 
— 0 . 596380920 04 
-0. 4501 63770 04 
-0.441717470 04 
-0. 260201080 04 
—0.231523510 04 
0. 260096740-09 

V PR IMF 


0. 0 
0. 0 
0. 0 

-0. 362250870 02 
-0. 197818920 03 
-0.9791 14700 03 
-0.124791690 04 
-0. 3472342SO 04 
-0. 347234 250 04 
0. 302930260 04 
0.576277210 04 
0.860551220 04 
0. 122420450 05 
0. 1 22420 46 0 0 6 
0. 8996.15420 0 4 
0.357603050 04 
0. 236836530 04 
-0. 89 62 04 130 03 
-0.790682800 03 
-0.291508200 04 
0. 146366120-09 

M PR IMF 


-0 .718447600-04 
-0.71 0447500-04 
-0 .71 8447500-04 
-0 .7 17 167850-04 
-0 .703332490-04 
-0 .697082520-04 
-0 .696678830-04 
-0 .593587990-04 
-0 .593587990-04 
-0 .57 1 80 5020-04 
-0.922931680-04 
—0.151 75672D— 9 3 
-0 .249 446770-03 
~0 .249 66 (,7 70-0 3 
-0 .264695720-03 
-0 . 27663622D— 03 
— 0 .278923320-03 
-0 .27891 1890-03 
-0 .278 74 7240-0 3 
— 0 . 27 84566SD-0 3 
-0 .27 8 306080-03 

PHI PRIME 


0.0 

-0.413417070 01 
-0.478959930 01 
-0. 1771 11010 01 
0 . 1 75151940 01 
0.323807930 01 
-0.371939780 02 
-0.886156680 02 
-0.291754270 04 
-0.293980150 04 
-0.283980150 04 
— 0. 28398015D 04 
-0. 283980150 04 
0.471656210 04 
0.464142750 04 
0.450087820 04 
0.391387740 04 
0.296617230 04 
0.221738360 04 
0.168374470 04 
-0.34 SO 96400- 09 


9 
1 3 


a 

1 3 


8 

13 


STAX 


8 

1 3 


9 

13 


8 
I 3 


0.0 

-0. 177637260 02 
-0. 477129950 0 2 
-0. 689821610 0 2 
-0. 693432830 02 
0.274656890 03 
0. 316517640 03 
0. 1 30890650 04 
0. 130890650 04 
-0. 4302 10320 0 4 
-0.430210320 04 
-0.430210320 04 
-0.430210320 04 
-0.677755580 05 
-0.538729980 OS 
-0.403712700 05 
-0.280531 17D 05 
-0. 180610460 05 
-0.959915070 0* 
-0.757878570 04 
-0. 603540680-08 

K SUR X 

9.280 1 1 204D 08 
0.145985400 08 


0.280112040 08 
0.146985400 08 


STA X 


K SUB X 


0.280112040 08 
0.1 45985400 08 


0.280112040 08 
9.145985490 08 


0.280112040 08 
0.1 45 9854 0 0 08 


, 0.280 112040 08 
0.1459854 00 08 

K SUB X 


P SUB OX 

0.31 0690540 04 
0.840454250 04 

P SUB OX 

0 .3200724 1 D 04 
0.8 50 0 5 5 6 5 0 0 4 

P SUB OX 

0.321363350 04 
0 .856056350 04 

P SUM OX 

0.321808810 04 
0.85865669D 04 

P SUB OX 

0.322031550 04 
0. 859956870 04 

-p sue OX 

0.322142910 04 
0.860606960 0* 

P SUB OX • T 


-0 .4004341 10-06 
-0.395648230-06 
-0.370520870-06 
-0.300584590-06 
-0.597678460-07 
0 .887988540-05 
0 .B8748390D-05 
0 .8 86 32934D— 0 5 
0 .886329340-05 
0 .887985780-05 
0 .087985780-05 
0 .B8798S78D-05 
0 .087985780-05 
0 .88798578D-05 
0.191970910-04 
0 .271852270-04 
0 . 329 560680-04 
0.361 330910-04 
0 .383090770-04 
0 .391 364R10-04 
0 .394 1 17S20-04 

P SUR X 


0. 322254280 04 
0.861257040 04 

P SUB X 

0.322254280 04 
0.861257040 04 

P SUB X 

0.322254280 04 
0.861257040 04 

P SUB X 

0.327 254 2 80 04 
0.R6125704D 04 

P SUB X 

0.322254280 04 
0.861257040 04 

P SUB X 

0.322254280 04 
0.861257040 04 

P SUB X 


-0. 963328700-03 
-9. 863328700-03 
-0. 863328700-03 
-0. 703247070-03 
-0.543207310-03 
-0. 385759040-03 
-0.300261 820-01 
-0. 1 32452670-03 
-0.1 32452670-03 
-0. 123447200-03 
-O. 821 51 2340-04 
0. 207955790-04 
0.399591490-03 
0. 399591 490-0 1 
0. 588313730-03 
0.9061 20150-03 
0. 1 1 7945S80-02 
0. 1 43074550-02 
0. 173702010-02 
0.2034 891 60-0? 
O. 2262 99570—02 

Y PRIME 


-0.519845930-05 
-0.202440970-05 
0. 984 767180-06 
0.352425880-05 
O. 478825230-05 
-0.386445220-05 
-0. 10871962 D— 0 4 
-0. 350299740-04 
-O. 350299740-04 
-0.434206150-04 
-0.434286150-04 
-0.434296150-04 
— 0.4 34 2861 5 D— 04 
-0.434296150-04 
-0. 108691 81 0-03 
-0. 20533891 0—0 3 
-O. 31 89 8054 0-03 
-O. 572 6 5 7 03 0-03 
-0. 8095 0 2 04 0-03 
-0.899125730-03 
-0. 1 22830280-02 



3) W -9 

JS § 3 

’^2 
H O fi 

M o 5 
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w • ju a tvoouu U<* 
0 •86093200D 04 


0.322254280 04 
0.8 61257040 04 


0.1 45*3854 00 08 


OMEGA = 0.4 0500000D 03 DETERH = -0.528964490 35 


V 


M 


PHI 


Y 


0.0 

0.0 

0.0 


-0. 

700317670 

02 

-0. 

18027765D 

0 3 

-0. 

858290^70 

03 

-0. 

1 391 1 £250 

04 

-0. 

142358620 

04 

0. 

1 79895660 

04 

0. 

1 76484540 

04 

0. 

1 7S26839D 

04 

0. 

t 750754 1 O 

04 

0. 

179810520 

04 

-0. 

767345360 

04 

-0. 

764 329960 

04 

-0. 

756826370 

04 

-0. 

580662180 

04 

-0. 

558088360 

04 

-0. 

329897830 

04 

-0. 

290820860 

04 

0. 

35 1917610- 

09 


V PRIME 


0. 0 
0 . 0 
0 . 0 

-0.474547330 02 
-0. 2591 01960 03 
-0. 1 1 6265190 04 
-0. 1341 54 07D 04 
-0.393929500 04 
— 0. 393 Q2 950 0 04 
0. 379517680 0 4 
0. 704806500 04 
0. 10435961 005 
0. 147916260 05 
0. 147916260 05 
0. 106826380 05 
0# 382594 190 0 4 
0. 25 1594 160 0 4 
-0. 159534020 04 
-0. 124672140 04 
-0.390717900 04 
0. 979639480-09 

M PRIME 


-0 .876 156330-04 
-0 .876 156330-04 
-0 .876 156330-04 
-0 .874 4584 20-04 
-0 .056 36 1 350-04 
-0 .8484351 30-04 
-0.047982850-04 
-0 .732415450-04 
-0 .732415450-04 
-0 .738930080-04 
-0 .1 17249010-03 
-0 .189600*60-03 
-0.307781650-03 
-0 *307781650-03 
-0 .32607 14 10-03 
-0 .342331820-03 
-0 . 342534 1 60-03 
-0 .342560040-03 
-0 .342325530-03 
-0 .34 192156D-03 
-0 .341721100-03 

PHI PRIME 


-0. 105044390-02 
-0. 105044390-02 
-0. 105044390-02 
-0. 854504 130-03 
-0. 658492930-03 
-0. 467290830-03 
-0. 363330440-03 
-0. I 60513150-03 
-0. 160513150-03 
-0. 1 31 536260-03 
-0. 699438160-04 
C. 682366560-04 
0. 5424 89?t 0-03 
0* 54240921 0-03 
0. 7768261 1 0-03 
0. 1 1 7009380-02 
0. 1 506 ? 1 93 0-02 
0. I 81 594 790-02 
0.21931 1 680-02 
0. 255956060-02 
0. 283979650-02 

Y PRIME 


0.0 

0.68190028D 01 
0.348559660 01 

— 0.903 337330 01 
-0.207613060 02 
-0.355413010 02 

— 0. 19121 0400 03 
— 0 . 26699 1 22D 03 
-0.340953400 04 
-0.351666600 04 
-0.351686600 04 
— 0.351666600 04 
-0.361666600 04 

0.505469290 04 
0.586744890 04 
0.570029880 04 
0.498023570 04 
0.382660380 04 
0.206217920 04 
0.217375950 04 
-0.340776300-09 


0 . 0 

0.336969890 02 
0.742016820 02 
0.626516760 02 
-0.400799900 02 
0. 21 2150 170 03 
0. 172440330 03 
0. 540361 050 03 
0. 54 9361 050 03 
— 0. 65233247 D 04 
-0.652332470 04 
-0.652332470 04 
-0.652332470 04 
-0. 860844 190 05 
-0.686930090 05 
-0.516722380 05 
-0.360515390 05 
-0. 232432430 05 
-0. 123480770 05 
-0. 974231990 04 
-0.408908820-08 


0.1 1081 1370-05 
0.1098221 10-05 
0 .105423460-05 
0.964 446979-06 
0. 892621020-06 
0 .6979390 4r>— 0 5 
0 * 6 Q 7 5906 49— 0 5 
0 .697026100-05 
0 .697025100-05 

0 .700484630-05 
0 .700484630-05 
0.700484630-05 
0 .700484630-05 
0 .700484630-05 
0.20 1322950-04 
0.303351750-04 
0 .377361 1 3D— 0 4 
0 .4 18256680-04 
0 .446251440-04 
0 .456891390-04 
0 .460419260-04 


0.968584620-05 
0. 1 32069370-05 
-0.596006960-05 
- 0 . 1 157 ^ 5460-04 
-0. 151 821030-04 
-0. 2 ?\ 1 94 980-04 
-0. 2709R463P-C4 
-0. 454683700-04 
-0.454683700-04 
-0.474710690-04 
-0.47471 8690-04 
-0.47471 8690-04 
-0.47471 8690-04 
-0. 47471 8690-04 
-0. 1 1 8246040-03 
-0. 22902 l 700-03 
-0. 361 734160-03 
-0.675056350-03 
-0.966230560-03 
-0. 1 07709530-02 
- 0 . 146626270-02 


END OF CASE 
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CUSTOMER instructions 

I. ENTER DATA L£ClBLY WITHIN S Races PROVIDED 
1. DISTINGUISH BETWEEN I .* 1 . 9 .. I *» 1, U .» V, I „* S 

3, Repeat cards 3 through 8 for each bay or station. 

If tables of p vs K input are given, add card 9 and cards of 
type 10 and 11 as required# 


KEYPUNCH INSTRUCTIONS 

PUNCH I CARD PER HAND P OSJED LINE ITE M 

PUNCH A L L_* _L iNt S wME r HE R POS T f.P OR NOT. <r NECESSAR Y PROVIDE BLANK CaRQ« 

a i. L_ ♦ 1_ Nf S T HA T_A U g HAND POS TED 

PA^INCLUDmC SPACES 

. * U S PACE $ MA Y B E iGN Q Rj ED 

ALL SPACES MAY BE IGNORED EXCEPT_ONj CARP 

ALL S PACES MAY BE IGNO RED EXCEPT tSp #c .ly coU. 

. ALL SIGNS A ND KP LINE S M UST BE PUNCH EO 

PO NOT PU NCH PRE-PRIN TF D SIGNS SHOWN AFTER LAST HANQWRlTTFN VALUE ENTRY 
I USE 360 SYMBOLS 


i : 2 1 3 l < . riTTT 1 8 fy so mi 12 n »4 Vs 6^t 7 fi a h 9 120 T21 ~laa l» 1141 23 > 2e^ TTT2 s ^2 v I30 I sTfs a ; 33 I34 >35 hftTTrbsl 3 »l 40U1 l iiUjUaI* 

ill I 1 1 1 i _ 1 • . '“V . t 1 1 11 1 1 f « fi i r 1 1 1 i 1 rnn “i nr' 
























>3 


-r\ 








... 

V 

13 ? S . FT / Sec . M.B 

. SPEED CASE 2 

ROTOR SK 8705-52 1.85 

1.85 i . e ; i 

8 300 . 


15 . 

1 2 5 6 3 

4 7 8 

1 7 J 

.0 

• 0 

3.5 

3.5 




7.7 

£ 97.7 

£9 




1 1 .5 

£ 611.5 

£6 




.3 

.3 


■r 




+ 1 .37 




70 . 




fc 

.0 

• 0 

3 . 

3 . 





7.7 

£ 97.7 

£9 




1 1.5 

£ 61 1 .5 

£6 




• 3 

• 3 

+ 1 .37 


} 

' '•?: 


80 . 




A 

1 .06 

1 .06 

3 . 

3 . 



65.7 

£ 665 • 7 

E 65.2 

£ 95.2 

£9 


6.2 

E 66.2 

£ 61 1 .5 

£ 611 .5 

£6 


♦ 05 

.05 

.3 

• 3 

-* 

• — '■ — r 

♦.0472 

4.36 

80 . 


+ .78 

„ . . , . 

i 

-» • -Ji 

1 .05 

1 .05 

3.5 

3.5 


l 

1 00 . 

£ 61 86 . 

E 62. 1 

£ 92. 1 

£9 

1 

6.2 

£ 66.2 

£ 61 1 .6 

£ 61 1 .6 

£6 


.57 

.24 

.3 

.3 


t ' "* * ' ry 

♦.0913 

8.69 

50.0 


+ .27 


• „ _ •; 

1 .04 

1 .04 

.65 

.65 



761 . 

E 62400 . 

£ 6.005 

£ 9 183 . 

£9 


6.2 

£ 66. 2 

E 61 1 .6 

£ 61 1 .6 

£6 


.08 

.08 

.02 

.02 


} 

+.3202 

15.18 

50 . 

- 82.4 

£- 6 + 6.39 


. V 

.6 

. 6 

• 4 

.4 



31 . 1 

E 931 . 1 

£ 947.5 

£ 947.5 

£9 


6.2 

£ 66.2 

£ 61 1 .5 

£ 61 1 .5 

£6 


.01 

• 01 

.08 

.08 



+ 2.1317 

40.4 

350 . 

- 38.8 

£- 6 + 1 .04 



.93 

.93 

1 .5 

1 .25 



603 . 

E 6359 . 

£ 6425 . 

£ 9162 . 

£9 


6.2 

£ 66.2 

£ 61 1 .6 

£ 611.6 

£6 


• 1 

• 15 

*01 

• 02 



♦.0377 

7.3 

1 37 . 


+ 21.75 



.0 

• 0 

• 0 

• 0 



600 . 

£ 6600 . 

£ 6195 . 

£ 9195 . 

£9 


6.2 

£ 66.2 

£ 611.6 

£ 611 .6 

£6 


• 1 

• 1 

• 02 

• 02 

1000 . . 

.0357 

♦ .0 



+ .0 



.0 

2.66 

1 .66 

* 1 .55 

.55 

.1193 

E 63 .U 

266 . 

£ 6240 . 

£ 6142 . 

£ 9276 . 

£9 


6.2 

E 66.2 

£ 61 1 .6 

£ 61 1 .6 

£6 

\ 

.19 

• 2 

• 02 

.02 


\ 

♦.0524 

14.17 

34.7 


+ 5.97 


\ 



El =5 20 * 







* • 





«- 

.92 

.92 

.0 

• 0 




1 ft! . 

£6288. 

E644. 

£944. 

E9 

• 

"/■ 

6.2 

£66.2 

£61 1 .6 

661 1 .6 

£6 



.22 

.22 

• 1 

• 1 




+■.0266 



• 0 


4 


6.53 

• 0 




* 


♦ 96 

.96 

.0 

• 0 




2 32. 

£6232. 

£652. 

E991. 

£9 

i 

t . 

6.2 

E66.2 

E61 1 .6 

E61 1 .6 

E6 



.28 

.28 

.08 

• 05 




♦.0253 





♦ 


6.17 





i 


1 .2 1 

1 .21 

• 0 

• 0 


.i ■ > 


258 • 

E625Q. • 

E61 7 . 

E915. 

£9 

i 


9. 

E 69 . 

E61 1 .6 

£61 1 .6 

E6 



.25 

.25 

.26 

.27 




♦ .039 







10.43 





K* 

** 

.0 

.0 

• 0 

• 0 



- 

250. 

£6253. 

£61 7 . 

6915. 

£9 

■*' 


9. 

E69 • 

E61 1 .6 

£61 1 .6 

E6 



.25 

.25 

.26 

.27 

1500. 

• 0685 

£■ 

• 0 

-8.4 


♦ .0 




• C 




.1193 

£63.1.1 

V) 

% 

.27 

.27 

1 .4 

1.4 




376. 

E6376. 

£616.5 

E916.5 

£9 

4 

;• 

1 1 .5 

E 6 1 1 .5 

E61 1 .6 

E61 1 .6 

E6 



• 1 75 

.175 

.02 

.025 




♦.0129 



+9.3 




2.73 

67.9 




•a 


.3 

.61 

1 .4 

1 .4 




244. 

E6825. 

£61 6. 5 

6916.5 

E9 



t 1 .5 

E61 1 .5 

E61 1 .5 

6611.5 

E6 



.23 

• 1 

.028 

.028 




♦.0242 



♦ 4 .98 




4.05 

58.5 






• 4 

.55 

1 .4 

1 .4 




15.75 

E91 5.75 

E91 6.5 

6916.5 

£9 



1 1 .5 

E61 1 .5 

£61 1 .5 

661 1 .5 

66 



.02 

.02 

.025 

• 032 




♦2.215 


98. 

6-6+2.95 




51.2 

1 45.5 






• 4 

• 4 

.75 

2.15 



‘ , 

6.5 

E96.5 

E962. 

6916. 

£9 



1 1 .5 

E61 1 .5 

£61 1 .5 

E61 1 .5 

£6 



• 09 

.09 

.017 

.27 




♦ .2 



3.4 




8.1 

1 75. 





X 

• 5 

• 5 

1 .5 

1 .5 



1 

6.5 

E96.5 

E912. 

E986. 

E9 



11.5 

E61 1 .5 

£611.5 

E61 1 .5 

E6 

\ 


• 09 

.09 

• 29 

.04 




♦ 2.16 


1 13. 

6-6+3. 0 




46. 

65. 





i 

• 5 

.5 

.5 

.5 




6.5 

£96.5 

£910.3 

£910. 3 

E9 

\ 

*- 
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1 1 • 5 

£ 611 .5 

£61 1.5 

E 61 1 .5 

£6 

.09 

.09 

.3 

.3 


>.2 



+ .3 


9.8 

40 . 




.3 

.5 

3.7 

3.7 


6.5 

£ 96.5 

£ 960 . 

£ 960 . 

E 9 

11.5 

£ 611 .5 

£61 1 .5 

£ 611 .5 

£6 

.09 

.09 

.07 

.07 


♦ 2.16 


1 38 . 

E- 6 + 5.7 


45 . 

1 00 . 





& 
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APPENDIX F 


PROGRAM E13104 LISTING 

c 






% 

> . T CUR ... 25 APR.. 72 

1. FEF X 

2. IN X """ 

END OF FILE — UNIT. X ' 

3. LIST 1 14142:2a 


14 : 42 : 25.937 

14:42:26 

14:42 : 26 



■v ZLl EXPA ID, 1/710420, 59936 


0 C CO 01 
000002 
000003 
0 0 0 0 u V 
000005 
000006 
C0G007 

cooooe 

0 0 U 0 0 9 
000010 ' 
000011 
ooooia 

000013' 


£13109 BILL 

£133 04 _ _ BILL 

L- 

C PLACE ON PRODUCTION 19 FEBRUARY 1970 BY F. YEE 

C _ 

SUBROUTINE EXPAND " "" " 13104“ 1 

IMPLICIT REAL*B (A-H/O-Z) 

DIMENSION BLO ( 250 ) _ _____ _ 1.3104 2 

COMMON /ARRAY/BL0/ARRAYZ/3HI “ . - 13104' 3 

BHI=O.ODO 13104 4 

RETURN 1.3104 5 


C##$ *£•*#'+**$'-*£#**!>***##*$***$***$*****$*:!<**#********* fc************** if*** 13104 6 



, , l i j r l i j i o u 

. t l-. t , (»?•; ' ?(>o LIST E13104 


CYL U’i=E13104 


"R ASS X-AN4151 
A N 4 1 5 1 .AS S .i SN E D UNIT 4 


M HDG 





PEF X 


END OF FILE — UNIT X 


25_APR_72 14J.42.5 25_._9.3j 

14542526 


14t42!26 


14542:28 



3 ELT EXPAND » 1 > 710420 . 59936 


000001 - " ‘ 

000002 E13104 BILL 
00C005 E13104 BILL 
000004 C 


000005 C PLACE GN PRODUCTION 19 FEBRUARY 1970 BY F» YEE 

000006 _ C_ _ 

000007 SUBROUTINE EXPAND “ ' 13104 i 

000008 IMPLICIT REALMS (A-H»0-Z) 

000009 DIMENSION BLO<250) 1.31 04 2 

000010 COMMON /ARRAY/BLO/ARRAYZ/OHI 13104 3 

000011 BHI=O.ODO 13104 4 

000012 RETURN _ _ 13104 5 

000013 C# '«***<•• ^V#*-***?:** <:$***>* <(*****<•**£. Sc £**$#** **#:tt«#*4:**>*;«!#*****#<rl31 04 6 

000014 C EXPAND SHOULD PRECEDE 1ST SIMST USE. 13104 7 

000015 C EXPAND SHOULD ONLY BE .CALLED FOR THE 7094. 13104_8 

OC003.6 C TO DIMENSION BLO > ESTIMATE NEEDED STORAGE. 13104 _ 9 

000017 C PUT DIM BLO ( 1 ) AND NAMED COMMON IN EVERY SIMST-USING ROUTINE. 13104 10 

0C00.1S c EXPAND, _ONL Y _N E E D BE_ CH A NGED_.I F A V A_I L ABLE -STORAGE. CHANGES . 13104_H 

000019 C*##*#***#^****#* **$$****$ + #*:e$ ***#$**#*$****$:* $*:***>!:*>!<*>!t$*!«(******:<c* > ji**13104 12 

000020 END 13104 13 



a ELT £13104, 1 ,710428, 32300 


000001 

1375, FT/SEC. M.B. 

SPEED CASE 

2 ROTOR SK8705-52 1.85 1.85 1.8 EI = 5 20 

**-8 

C00002 

8 300, 

15 

• 

1 2 5 6 3 

4 7 8 1 7 


000003 

« 0 

.0 

3.5 

3.5 



000004 



7.7 

E97 , 7 

E9 


000003 



11.5 

E611.5 

E6 


00 0003 



.3 

.3 



000007 




+ 1.37 



OOOOOS 


70. 





000009 

.0 

.0 

3. 

3, 



000010 



7.7 

E97.7 

E9 


000011 



11.5 

E611.5 

E6 


000012 



.3 

.3 



C j 0 0 1 3 




+ 1,37 



U00G14 


80. 





0 0 G 0 1 5 

1,06 

1.06 

3. 

3, 



000013 

65.7 

£665 . 7 

E65.2 

£95,2 

E9 


C 30017 

6,2 

E66.2 

E611.5 

E611.5 

E6 

, 

U00018 

,85 

,85 

.3 

,3 



C0C019 

+.0472 



+ ,78 



03 C 020 

4 . 36 

80. 





000021 

1.05 

1.05 

3.5 

3,5 • 



000022 

100. 

E6186. 

E62.1 

E92 , 1 

E9 


000023 

6,2 

E66.2 

E611.fi 

E611.6 

E6 


000024 

.57 

<\J 

* 

.3 

.3 



cC0023 

+.0913 



+ ,27 



000026 

8.69 

50.0 





000027 

1.04 

1.04 

.65 

.65 



C 0 V 0 2 8 

761. 

E62400. 

E6.005 

E9183. 

E9 


000029 

6,2 

E66.2 

£61 1 .6 

E6U.6 

E6 


0 0 0 C 3 0 

,08 

.08 

.02 

.02 



000031 

+.3202 


-82.4 

E-6+6.39 


1 

0C0032 

15.18 

50. 




t 

000033 

.6 

.6 

.4 

.4 



000034 

31.1 

£931,1 

£947 , 5 

£947,5 

E9 


000035 

6.2 

E66.2 

E6U.5 

E611.5 

Ea 


000036 

.01 

.01 

.08 

.08 



000037 

+2.1317 


-36.8 

E-6+1.04 



000033 

40,4 

350. 





000039 

.93 

.93 

1.5 

1.25 



000040 

603. 

£6359, 

E6425. 

E9162. 

E9 


C 0 0 0 4 1 

6,2 

E6S . 2 

E611.6 

£611.6 

E6 


000042 

.1 

.15 

.01 

.02 



000043 

+.037? 



+21.75 



COO 044 

7.3 

137, 





000045 

.0 

.0 

• 0 

.0 



C Q 0 G 4 6 

600 « 

E6600. 

E6195. 

E9195. 

E9 


000047 

6 a 2 

E66 . 2 

E6H.6 

E611 .6 

E6 


000048 

,1 

,1 

.02 

.02 

1000, .0357 E-6 


000049 

+ , 0 



+ .0 



G00050 

.0 




.1193 E63.ll 


000051 

2 . bo 

1.66 

1,55 

.55 



000052 

266 , 

£6240 , 

E6142 » 

E9276 » 

E9 


000053 

6,2 

E66.2 

E611.6 

£611 . 6 

E6 


000054 

.19 

.2 

.02 

.02 



000055 

+ .0524 



+ 5.97 



000056 

14.17 

34.7 







C? ;C57 

.92 

.92 

.0 

.0 

C9C053 

1 61 . 

£6288 . 

£644. 

E944. 

C 00 C59 

6 o 2 

E 66.2 

E61 1 o 6 

£ 611.6 

COO 060 

.22 

.22 

. 1 

. 1 

0 0 j 0 6 1 

+ . 0266 



9 0 

C00062 

6 a 53 

.0 



000063 

.96 

.96 

.0 

.0 

000064 

232. 

£6232. 

E652 . 

E991. 

000065 

6.2 

£ 66. 2 

. E611.6 

E611.6 

000066 

.23 

.28 

.03 

. .05 

000067 

+.0253 




000068 

6.17 




000069 

1.21 

1.21 

.0 

.0 

G 0 0 0 7 0 

253. 

E6258. 

E617 , 

E915. 

000077 

9. 

E69. 

£611 . 6 

Efcll .6 

000072 

.25 

.25 

.26 

.27 

000073 

+ .039 




000074 

10.43 




000075 

.0 

.0 

.0 

.0 

u 'J G 0 / C * 

253. 

ES253. 

5617. 

E915, 

00 0077 

9. 

£69. 

E611.6 

£611.6 

000073 

.25 

.25 

.26 

o a t 

GC 00 / 9 

.0 

-8.4 


+ .0 

000030 

.0 




000031 

.27 

.27 

1.4 

1 o £A 

000032 

37oo 

£6376. 

E616.5 

£916.5 

OOCO !3 

11.5 

£611.5 

£ 611.6 

E 6 1 i o 6 

000034 

.375 

_ o 175 

ooa 

.025 

G0CG65 

+.0129 



+ 9,3 

000086 

2.73 

67,9 



0000S7 

.3 

.61 

1.4 

1.4 

00C0S3 

2 -^v* r ® 

E6825. 

E616.5 

E916.5 

000039 

11.5 

£611.5 

£611.5 

E611.5 

000090 

.23 

.1 

• 028 

.020 

000091 

+.0242 



+ 4.9* 

0 0 C 0 9 2 

4,85 

58.5 



000093 

. 4 

.55 

1.4 

1.4 

000094 

15.75 

£915.75 

E916.5 

E91S.5 

000095 

11.5 

E&11.5 

ESI 1.5 

E611.5 

000096 

. 02 

« 0 2 . 

o o as 

.032 

000097 

+2.215 


98. 

£-6+2.95 

000093 

51.2 

145.5 



000099 

♦ 4 

.4 

.7.5 

2.15 

U 00100 

6.5 

E96.5 

E962, 

E916 . 

GC 0101 

11.5 

E611.5 

E611.5 

E611.5 

(. C 0 1 0 2 

.09 

.09 

.017 

,2.7 

000103 

+ .2 



3.4 

000104 

8.1 

175. 



0P01C5 

.5 

,5 

1.5 

1.5 

■j 'J 0 3 06 

6 » 5 

£96. 5 

£912. 

E9S6 « 

100107 

11.5 

E6H.5 

£611,5 

E611.5 

000108 

.09 

,09 

.29 

. 04 

C 00 109 

+ 2.16 


113. 

E-6+3.0 

000110 

46. 

65. 



000111 

u 5 

,5 

_ . 5... 

.5 

0,0112 

6.5 

E96.5 

E910.3 

E910.3 

0 0 0 i 1 3 

11 0 5 

£611.5 

£611 .5 

£631.5 

CO'jl 14 

» 09 

.09 

.3 

.3 

0 0 0 1 15 

+ .2 



+ .3 

SilcUfa 

9. ft 

40. 




4 




f\> r\) ro 


<? 


•3 

.5 

3.7 

3.7 


6.5 

£96.5 

E960. 

E960. 

E9 

11.5 

Efcll.5 

E611.5 

E611.5 

E6 

.09 

.09 

.07 

j_07_ 


+2.16 

45. 

100, 

138. 

E-6+5.7 
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a ELI 

INT4.1.7; 

10422 > 38771 



000001 


SUBROUTINE INT4(XpYpXIpY0) 

61205002 


000002 


IMPLICIT REAL*8 (A-H.O-Z) 

61205003 


0 0 0 0 0 3 


REALwfl X p Y p XI j YO 

61205004 


0 OCO 04 


DIMENSION X ( 9) . Y ( 9 ) ,XC<4) pYC<4> 

61205005 


000005 


EQUIVALENCE (XC(1) »X1> » <XC(2) »X2) » <XC<3> pX 3> » <XC<4) »X4) p (YC(1) 

p Y1 ) 61205006 


000006 


1> (YC(2) pY2) p (YC13) pY.3> p (YC(4) pY4> 

61205007 


000007 

20 

ASSIGN 30 TO NA 

61205008 


000008 


J=2 

61205009 


000000 


B=XI 

61205010 


000010 

21 

IF ( X { J) ) 26’ 22 p 26 

6120505 1 


000011 

26 

GO TO NA p < 30 ? 40 ) 

61205012 


c ;< o o 1 2 

22 

IF ( Y ( J ) )26?23j»26 

61205013 


000013 

23 

IF t J-2)24 p24p25 

61205014 


000014 

24 

YE=0.0 

61205015 


000015 


GO TO 50 

61205016 


000016 

25 

ASSIGN 32 TO MB 

61205017 


000017 


J~J-i 

61205018 


000018 

27 

Xi-X(J) 

65205059 


OGO 0 19 


X2-X tJ-1 ) 

61205020 


000020 


X3=X( J-2) 

61205021 


000021 


Yi=Y< J) 

61205022 


00 00 2 2 


Y2=Y(J-1> 

61205023 


000023 


Y3-Y (J-2) 

61205024 


oo:o2'-’ 


GO TO NBp (32.42) 

61205025 


000025 

30 

IF ( X { J) ”8) 29p 37> 37 

61205026 


CC 0 026 

37 

IF ( J-2 ) 31 p 31 p 28 

61205027 


000027 

28 

ASSIGN 40 TO NA 

61205028 


000026 

29 

j=j-n 

61205029 


CU0029 


GO TO 21 

61205030 


0UG030 

31 

DO 60 J- 1 p 3 

61205031 


000031 


XC ( J)-X( J) 

61205032 


000032 

60 

YC(J)=Y( J) 

61205033 


000033 

32 

n=x 2 -xi 

61205034 


0 0 0 *v 


A1-3-X1 

61205035 


c COO 3 5 


A2=3-X2 

61205036 


000036 


YE=Al*A2/2.0/D*( ( Y3-Y2) /( X3-X2 > - ( Y2-Y1 ) /□: -A2/D*'a*Al/D*'<2. 

61205037 


000037 


GO TO 50 

61205038 


C0G036 

40 

ASSIGN 42 TO NB 

61205039 


000039 


GO TO 27 

61205040 


0C0040 

42 

X4=X( J-3) 

61205041 


OOOC'U 


Y4=Y( J-3) 

61205042 


000042 


D=X3-X2 

61205043 


00 00 43 


A1-B-X2 

61205044 


C00044 


A2=B-X3 

61205045 


000045 


XM12=<Y2-Y1)/(X2-X1) 

61205046 


C00046 


XM23=( Y3-Y2J/D 

61205047 


000047 


XM54=(Y4-Y3)/(X4-X3) 

6120504S 


000048 


YE=A1*A2**2/2.0/0**2*(XM12-X^23)+A2*A1**2/2.0/D**2*(XM34-XM23> 

-A2*61205049 


CO CO 49 


1Y2/D+A1*Y3/Q 

61205050 


000050 

50 

YO=YE 

61205051 


000051 


RETURN 

61205052 


000052 


END 

61205053 




.UL 


G ELT MAIN* 1*710420* 59942 


000001 
000002 
0 0 0 0 0 3_ 
000004 
000005 
0 0 Q 0 0 6 
000007 
000008 
000009 
000010 
0000 U 
000012 
"000013 
000014 
000015 
QUC016 
000017 
000016 
0 C 0 0 1 9 


CMA1N 

c 
c 
c 
c 


13104 14 


IMPLICIT REAL*8 (A-H.O-Z) 


LATERAL VIBRATION ANALYSIS OF TWO ELASTICALLY COUPLED * UNDAMPED 
LUMPED PARAMETER BEAMS JOB 14043 J. F, BUSSIO 


DIMENSION BL0(1) 

COMMON /ARRAY/BLO/ARRA YZ/BHI 

D I MENS I ON TABP (26*10)* T ABK (26*1 0J_* NP I T ( 10 >_r ISTA ( 1 0 ) 

DIMENSION TITLE (12) *IDP(4) 

DIMENSION DLK50) »DL2(50) *OL3(50) *DL4(50) » DEI 1 ( 50 > * DEI2 ( 50 ) * 

1 DEI 3 ( 50 ) * QEI4 ( 50 ) * OG 1 (50 > » DG2 ( 50 ) * DG3 ! 50 ) * DG4 ( 50 )* 

2 ““ DC1 ( 50 ) * DC2 ( 50 ) * DC3 ( 50 ) » D(f4~( 50 ) * DI J1 < 50 ) *DX<50) * 

3 DGAMXC50) *DIX2<50) *DWN1(50) *DWN2(50> *DKNK50> »DKN2(50) 

_DIMENSION_DETA ( 50 )_* D3ET A ( 50 ) * DFLFX ( 50 ) ■ 

DIMENSION E1MTRX (9*9) *E2MTRX(9*9) »AMATRX<9>9) *BMATRX(9*9> * 

1 CMATRX (9*9) *FMATRX(9*9) » DLMTRX (9* 1 ) *SMATRX(9*1) » 

2 DUMMY ( 9) * C ( 5) * ID ( 5 ) * X (_4) * K ID ( 4)_> Q000FL ( 9* 50 ) *NREP(10}_ 

dImENSI0N'’DPN1 (50) * P 0 ( 50 ) * DAN 1(50) »D3N1(50) * PI ( 50 ) * P2 ( 50 ) . P3 ( 50) 


13104 
13104 
13104 
.13104. 
13104 
13104 
13104 
13104 
135 04 
13104 
‘13104' 
13104 
JL3104 
13104 
13104 
13104 
13104 


15 

16 
17 

18.. 

19 

20 
21 
22 

23 

24 

25 

26 
27_ 
28 
29 
30_ 
31 


000020 

000021 

common 

1 

DLI 

DEI3 

0 

9 

0L2 

DEI4 

9 

9 

0L3 

QG1 

9* 

9 

DL4 

DG2 

P 

9 

DEIl 

DG3 

» 

9 

DEI2 * 

DG4 * 

13104 

13104 

32 

33 

000022 

2 

DC1 

9 

DC2 

9 

DC3 

P 

DC4 

9 

DIJ1 

9 

DX * 

13104 

34 

0G0C23 

3 

DGAMX 

9 

DIX2 

f 

0WN1 

9 

OWN 2 

9 

DKN1 

9 

DKN2 * 

13104 

35 

00 0024 

4 

E1MTRX 

9 

E2MTRX 

9 

AMATRX 

9 

EMATRX 

9 

CMATRX 

9 

FMATRX * 

13104 

36 

000025 

5 

KC 

9 

KD 

P 

KM 

9 

KN 

9 

KO 

9 

KP * 

13104 

37 

300026 

6 

DETA 

f 

DBETA 

9 

DFLEX 

9 

DPN1 

9 

PO 

9 

DAN1 * 

13104 

38 

OC 0027 

7 

DBN1 

9 

IFLAG 

9 

NTRIAL 

9 

B 

9 

DLMTRX 

9 

SMATRX * 

13104 

39 

000028 

8 

DUMMY 

9 

KK 

9 

KA 

9 

KB 





13104 

40 


000029 
000030 
000031 
000032 
000033 
"000 0 34 
000035 
OC 0036 _ 
000037 
000036 
000039 
000040“ 
000041 
000042 
00 0043 " 

0 CO 044 
000045 
000046 
0CQQ47 
_000043_ 
000049 
000050 
000051 
" 0CQG52 
000063 
0 0 0054 
00i;055 
4 50056 


999 


CALL EXPAND 
DO 999 11=1*10 
"NREP < 1 1 ) =0 
LINE=6 

READ ( 5 * 3000 * END=6000 ) 
"READ" ( 5*3001) NROOT* ! “ 


13104 

13104 

13104 

13104 

13104 


1 * NTRIAL 
_ DO_ 35 N: 
'CALL 


1 * NSYA 


30 READ ( 5 * 3000 * END=6000 ) TITLE* _NSTjfW { I t J) * 11 = 1*4) 

MEGA * DOMGA * KK * K A * KB * ICC * KD * KM * KN * KO * KP» IFLAG13104 

13104 

_ 13104 

REPEAT (DLI (N-1 ! *DL1 (N) * DL2 (N-l ) *DL2(i!) *DL3(N-1) *DL3(N) *DL4(N-13104 
11) * DL4 ( N ) *X(1)*X(1)*X(1)*X(1) * NREP ( 1 ) > 13104 

_ CALL REPEAT ( DEI 1 (_N-1) *0EIUN) *DEI2JN~1) *0EI2(N) *DEI3(N-1) *DEI3_(N) * 13104 
lDEX4(N-i ) *0EI4(N> *X(1) * X ( 1 ) * X ( 1 ) * X ( 1 ) * NREP ( 2) ) 13104 

CALL REPEAT (DG1 (N-l) *DG1 (N) * 0G2 (N-i ) *OG2 01) *DG3(N-1) *DG3(N) *DG4(M-13104 

11) *DG4(N) *X(1) *X(1) »X(1) *X(1) ,NRtPJ3)J __ _ _ 13104 

CALL REPEAT (DC1 (N-l ) p DC 1 ( N) *DC2(N-1) pDCPCF) *OC3‘(N-l) *DC3(N) * DC4‘"( N-i 31 04 
11) *DC4(N) * DFN1 ( N-l ) *DPN1!N) * DFLEX ( N-l ) > DFi.EX (N) .NREP (4) ) 13104 

CALL REPEAT (DIJ1 (N-l) * DI J1 ( N ) . OX (N-l ) . DX ( i I) *OG AMX ( N-l > * DGAMX ( N> .DI13104 
1X2 ( N-l ) * b I X2 ( N ) *DETA (N-l ) /DETA (N) * DBETA (N--1) * DBETA (N) »NREP(5) > " 13104 

CALL REPEAT (DWNl(N-l) *DWN1(N) *DWN2(N-1) *DUN2(N) rDKNl (N-l) /DKNKN) *13104 

1DKN2(N_-1) * DK N2 ( N ) .DANl( N- l) .DA N HN) * DBM1 ( N-l ) *DBN 1 (N) * NREP ( 6 )) 13104 

‘35 CONTINUE " """ 13104 

WRITE ( 6*4000) 13104 

WRITE ( 6*4001)TITLE?NSTA 13104 

TE ( 6*4C21)NRd6T*bMEG”A*D0MGA*KA*KB*KC KD*KM*KN*KO* KP * IFLAG * 1 31 04 

13104 

13104 

13104" 
13104 


WRITE ( 6 * 4C21 ) NROO 
INTRIAL 

_ LINE=LlNE+NSTA+4_ 

IF ( LINE-55 >‘39739 *38 
Hi WRITE ( 6.4C22) 


41 

42 

43 

44 
45_ 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 
57_ 

58 

59 

60 
61 
62 
63 
84 

65 

66 

67 

68 





C 9 0057 


l.I-M -1 


13104 69 

'Jiu'J-ci 

59 

74T-: I 6.4002) 


13104 70 

o cue 59 


uo HO M=1»NSTA 


13104 71 

0 G 0 0 6 0 

40 

WRITE t 6 . 40 08 ) 0L1 !N) « DL2 ( N ) . DL3 ! N ) . DL4 ( N ) 


13104 72 

G00C6.1 


L I ME-L I NE + N5T A 44 


13104 73 

000062 


IF ( LINE-55) 44.44.43 


13104 74 

000063 

43 

WRITE ( 6.4022) 


13104 75 

000064- 


LINE-1 


.13104 76 

ODOC65 

44 

WRITE < 6.4003) 


13104 77 

000066 


DO 45 N= l.NSTA 


13104 78 

000057 

45 

WRITE ( 6.4008)DEI1(N) .DEI2(N) : .0EI3<N) #D£I4 :n) 


13104 79 

000068 


LINE=LINE+NSTA+4 


13104 80 

000069 


IF ( LINE-55) 49.49.48 


13104 81 

000070 

48 

WRITE ( 6.4022) 


13104 82 

000071 


LINE=1 


13104 83 

000072 

49 

WRITE < 6.4004) 


13104 84 

000073 


DO 50 N=1»NSTA 


13104 85 

00 CO 74 

50 

WRITE ( 6.4008)061<N) .DG2(N) »DS3(N) >0G4(N) 


13104 86 

000075 


LINE=LINE+NSTA-»4 


13104.87. 

000076 


IF ( I FLAG) 70.51.70 


13104 83 

000C77 

70 

I F ( LIME -55 ) 72.72.71 


13104 89 

000073 

71 

WRIT" < 6.4022) 


.13104 90._ 

0000/9 


LINE-1 


13104 91 

00 Of. 00 

72 

WRITE ( 6.4015) 


13104 92 

0000 SI 


DO 73 N= l.NSTA 


. 13104 93 . 

0U0C52 

73 

WRITE ( 6*4010)DC1(N) »DC2(N) »DC3{M) .DC4(N) OPNl(N) » 

DFLEX(N) 

13104 94 

000033 


GO TO 56 


13104 95 

000004 

51 

IF (LINE-55) 54 .54.53 


.13104 96_ 

000033 

53 

WRITE ( 6.4022) 


13104 97 

000056 


L!NE = 1 


13104 98 

000087 

54 

WRITE ( 6.4005) 


13104 99 

CO 0 093 


DO 55 Nsl.NSTA 


13104100 

000069 

55 

WRITE ( 6.4008)DC1<M) >0C2(N) .DC3(N) .DC4(N) 


13104101 

000090 

56 

LINE=LINc+NSTA+4 


13104102 

000091 


IF ( LIME-55) 59. 59. 58 


13104103 

000092 

58 

WRITE ( 6.4022) 


13104104 

000093 


L.INE = 1 


133 04105 

000094 

59 

WRITE ( 6.4006) 


13104106 

000095 


DO 60 Nzi.NSTA 


13104107 

000096 

60 

WRITE ( 6.4010)DIJ1(M) ?DX(N) .DGAMX(N) .DIX2( 4) . 

DETA(N) . 0313104108 

0G0C97 

1£TA<N) 


13104109 

000098 


LINE=LINE+NSTA+4 


13104110 

000099 


TF (IFLAG)RO. 61.80 


-13104111 

000100 

80 

IF (LI ME- 55)82.82.81 


13104112 

000101 

01 

WRITE < 6.4022) 


13104113 

0CC102 

82 

WRITE < 6.4017) 


. 13104114 

000103 


DO 83 N= l.NSTA 


13104115 

0 0 C 1 0 4 

83 

WRITE ( 6.4010)DWN1(N) »0WN2(N) iDKNKN) .DKN21N) » 

DAMl(N) 

.13104116 

C 0 0 1 0 5 


1DBN1 ( N ) 


13104117 

000106 


GO TO 66 


13104113 

003107 

61 

IF-LINE-55)64. 64.63 


13104119 


63 

WRITE ( 6.4022) 


133 04120 

CO 0109 

64 

WRITE < 6.4007) 


13104121 

000110 


DO 65 Nrl.NSTA 


13104122 

C0CU1. 

65 __ 

WRITF < 6 . 40 08 5 DWN1 < N ) . DWN2 < N ) » DKN1 ( N ) . DKN2 ( N) 


_13i04-123 _ 

000112 

66 

LINE = 1 


13104124 

0 G 0 1 1 3 


WRITE ( 6.4022) 


13104125 

000114 


IF! IFLAG)90.99»99 


13104126 

000115 

c £ * 4 U # V # ❖ & V •£ $ '*■ U- <$■ 'i- £ # £ V £ # * # £ £ * V V if it £ # # $ * # # * ❖ * 4 * * & $ # * << 

*************13104127 

000116 

, c 

FOR IFLAG - -1 F-K TABLES ARE INPUT (MAX. CF 10) 


13104128 



C 0 0 i i 6 
006119 
000120 
000121 
000122 
0 0 0 1 2 3 _ 
C00124 
000.125 
QUO 126 
000127 
000128 
000129„ 
000130 
000131 
000132 
000153 
00013 4 
000135 
000136 " 
C00137 
000138 
000139 
000140 
0 0 0 1 4 1 _ 
000142 
0 0 0193 
000144 
000145 
000146 
0 0014 7 
000146 
000149 
000150 
' CUU151” 
000152 
000153 
C 00.1 54“ 
00 01 55 
CO 01 56 
C0Q.i57 
000.158 
000159 .. 
0 U 0 1 6 0 
000161 
00 C 1 62 
000163 
000164 
000135 
000165 
0 CO .167 
000168 
000169 
000 170 
000171 
000172 
000 ; 73 
0 JO 174 
9', 01 75 
O'. ?!., 


C TAuPfTARK(3»M> „ SELECTS _THE. 3RD. POINT _0.r_.tH.E_M.lH. TABLE 13104129. 

C TABLES ARE SEQUENTIAL FOR INT4 13104130 

90 READ ( 5 ? 2004 ) NTAB r ( ISTA ( 1 1 ) * 1 1 = 1 » NTAB ) 13104132 

2004 FORMAT (I2p 2X1013) 13104133 

WRITE (6t 1007)NTAB» (ISTA(II) *II=1»NTAR ) 13104134 

1007 FORMAT ( 1H1 > 8X1SHNUMBER OF_TABLES _I2l3X34K_ INPUT AT THE FOLLOWIN1 31 04135 

IS STATIONS p 2X10 13 ) 13104136 


DO 213 M= 1 r NTAB 

READ 15p 3003) . TITL£j NpIT.(M>_ 

30 C 3 FORMAT ( 11A6» A4 r 12) 

WRITE ( 6 p 3GQ4 ) TITLEpNPIT(M) 

3004_FORMAT J1H0p11A6»A4pRX25HMUMBER OF POINTS IN. TABLEp I 3r6X 
1 12H (MAX IS 15.) > 

WRITE (6p 30055 

3005 FOR MAT U HO p 24X1H P p 19X1 HK ) 

y 

NPITM-NPIT (M) 

DO 91 J-l.NPITM _ _ __ 

READ (Sr 3002) TABP( JpM) »TA8K( JpM) 

WRITE ( 6 p 3006 5 T A3P (Up M) p TAbK ( J j M) 

3006 FORMAT ( 1H0 p 18X> E.15 e 8 p 5Xr E15.8) _ __ 

91 CONTINUE 

C 

TABP(NPITM+lrM)=O.ODO . ‘ 

T ABK (NPjf M+l pM) =6 » ODO 
213 CONTINUE 

C __ _____ 

" 99 TM0D=0MESA#6.283 185307179586 ' " 

DM0D=D0MGA*6. 283185307179506 

Q 

' C I NITILI 2E~E 1 p E2 p AND F~ MATR ICES ” 

C 

_100 DO 110 1 = 1 p 9 __ . 

DO '110 J=1p9 ~ 

IF(I-J)105p106p105 

_105 ElMTRX(XpJ)=0„0D0 

E2MTRX (I pU) =0.000 
FMATRXd pj) =0.000 


13104137 
.13104138 
13104139 
13104140 
13104141 
13104142 
13104143 
1 31041 44_ 
13104145 
13104146 
13104147. 
13104148 
13104149 

13104150 

13104151 

13104152 

13104153 

13104154 

13104155 

13104156 

13104157 

13104158 

13104159 

13104160 

13104161 

13104162 

13104163 

13104164 

13104165 

13104166 

13104167 


_ GO TO 110 

106' E1MTRX ( I p J) =1 . ODO 
E2 MTRX(IpU)= 1.0D0 
FMATRXd pU)=1.0D0_ 
ilO CONTINUE 

OMGW=TMOD-DKOD 


13304168 

13104169 

13104170 

13104171 

13104172 

13104173 


C * 7 * >f 

4301 

4302 
C **■*# 

430 

340 

C ip: X $ & 

431 

341 


DO 

DO 

OM 

#7* 

IF 

IF 

GO 

DO 

PO 

GO 

DO 

Pi 


MG=OMOD _ 

150 MMM=1pNROOT 
GW=OMGW+DOMG 

»**)};#:> * * * if; if * 

! IFLAG) 4301 p 4300 p4301 " “ 

( MMM-4 >4302* 4302 r 434 
TO < 430 j 431 *432*433 ) r.NMM 

340 N= XpNSTA 

(M)=DPMi(N) 

TO 


4300 

£4^ *#*;*&# $#**■***.•* 

341 N= IpNSTA 
(N ) = . 500 v ( PC ( N 1 +DPN1 (M) ) 




13104174 

13104175 

13104176 

r# *■$#*#******#*********** 131 04177 

13104178 

13104179 

13104180 

13104182 

__ 13104183 

13104164 

^V**************-****** *+13104165 

13104186 

13104167 


60 TO 4300 


13104188 



CO C 177 

000173 

000179 

GOOifiO 

0Q01C1 

COO J 02 

000133. 

000154 

000135 


C * ■■ ~ *>>**j!:<t** »!>«$»»» ».»»»»»»»»» » -h y » a » i 041 89 

432 DO 34?. N= I.NSTA ’ * 13104190 

342 P2(N)-.5D0*<P0(N)+DPNl(N) ) 13104191 

_GO_.TG_4300 13104192 

Cs **#*£**#*# *#****>>***#*#* *#**♦«**#*#$$***#**#*£«*£**$****<>******* **131041°3 

433 DO 343 N= l.NSTA 13104194 

_ P3(N)=.5D0*(P0(N)+DPNl(N) ) 13104195 

PO(N)=3.DO*(P3(N>-P2(Ni )4-Pl(N5 13104196 

343 DPMI (N ) =P0 ( N ) 13104197 


03316.6 _ CG_TO.. 43.00 .13104 3 98 

G 0 0 187 Csyyy **.'y*!fc****l» ^ tf * *$**<:**#**>!<***$:*****!»* 1 31 04199 


000188 434 DO 344 N= l.NSTA 13104200 

000189 PI (N)=P2(N) 13104201 

000190 P2(N)=P3(M) 13104202 

C00191 P3(N)=.5D0*(PO(N)+DPNl(N) > 13104203 


003192 


P 0 .( N ) = 3 . D 0 * ( P 3 ( N ) - P 2 ( N > ) + P 1 ( N ) 

13104204 

000193 

000194 

000195 

0*+*^ 

C 

4300 

DPMI ( N ) = P0 ( N ) 

LOOP FOR BETTER K(X) S DURING EACH STATE VECTOR LOOP. 1ST PASS 
DO 600 JERRY-' l.NTRIAL 

13104205 
OK 13104206 
. . 13104207 

000196> 



13104208 

CUO 197 

C 

FIND (DELTA) 0 

13104 

000193 

C 


13104210 

0 GO 199 


DO 130 1 = 1.9 

13104251 

00020C 


DO 130 0=1.9 

13104212 

000201 


IF ( X-J) 125 > 1?6 » 125 

.13104213 . 

CDC2C2 

125 

CMATRX<I.J)=0.0D0 

131 04214 

001203 


GO TO 130 

13104215 

000704 

126 

CMATRX( I . J)=1.0D0 

13104216 

000205 

130 

CONTINUE 

13104217 

000206 


M=1 

13104218 

000207 


DO 135 N= l.NSTA 

13104219 

0 0 0 2 0 3 


IF ( IFLAG ! 6.1.2 

13104220 

000209 

2 

IF(DAM1(N) ) 4.1.4 

133 04221 . 

U 002 10 

6 

IF(DPNHN) >1.1.5 

13104222 

001.211 

5 

P0(N)=»5D0*(P0(N)+DPNl (N) > 

13104223 

00C212. 


CALL IMT4(TABP(1.M) .TABK(l.M) .PO(N) .DKNl(F') ) 

13104224 

001213 


M=M+1 

13104225 

000214 


DKN1 (N) =DKN1 ( N ) / ( DFLEX ( N ) 4 1 . 000 ) 

13104226 

CCC7.15 


GO TO 1 

13104227 

000216 

4 

P0(N)=.5D0*(PC(N) +DP.'U(N) ) 

13104228 

00C217 


DKN1 (N) = 1.000/ (DFLEX (N)+l.ODO/(DANl (N> *P0 ( N > **DBN1 ( N) > > 

13104229 

0C0218 

1 

CALL SETUP (Of-iGW.N) 

13104230 

000219 


CALL MAT^PY (FilMTRX (1.1) .CMATRX (1 . 1 ) » AMATRX (1.1).9.9.9.9.9) 

13104231 

000220 


CALL MATMPY (E2MTRXU .1) . FMATRX (1.1 ) . RMATRY (1.1). 9. 9.9. 9.9) 

13104232 

C0G221 


CALL MATMPY (8MATRX (1.1) . AMATRX (1.1) . CMATR) (1.1) .9.9.9»9.9> 

13104233 

G 0 C £ 2 2 

135 

CONTINUE 

13104234 

COG 22 3 


0PRT=CMGW/6. 2831853071 79586 

13104235 

C0C2.24 

140 

DO 1140 1=1.8 

35104236 

000225 

1140 

DLMTRX ( I . 1 ) =0 . 0D0 

13104237 

CO 0226 


DLMTRX( 9.1) =1.000 

13104238 

0C0227 


ID ( 1 ) =1 

13104239 

CCG.228 


1D<2)=2 

13104240 

000229 


ID ( 3) =3 

13104241 

0C0230 


ID i 4 ) =4 

13104242 

000231 


ID(5)=-1 

_ 13104243 

000232 


CALL SI.YS2 


000233 

C 


13104244 

GGC234 

C 

SOLVE FOR DELTA (M) .DELTA (N) • DELT A ( 0) .AND DEITA(P) 

13104245 

c o o c i fs 

C 


1 3 1 0 4 2 A 6 


o ■; o > 3 r> 


13304247 


( 1) =CMATRX L< A.KM) 



1237 
0 JC239 
000239 
CO 0240 
000241 
0C0242 
000245 
0 0 0 2 4 4 
CO 0245 
000246 
000247 
00C248 
000249 
0QC25Q 
0GC251 
001)252 
000253 
000234 
C00255 
C00256~ 
000257 


C ( 2) rCMATRX (K A » KN 5 

C (3)=CMATRX(KA*K0) 
C(4)=CMATRX(KA.KP) 

C ( 5) =~CMATRXJK A * 9) . 

CALL SIKST(C*ID*5*BL0*3HI) 
C(1)=CMATRX(K8*KM) 

C (2>=CMATRX(KB*KN) 

C<3)=CMATRX!KBpK0) 

C (4)=CMATRX(KB*KP) 

C (5) s-CMATRX (KB p 9 ) 

CALL SIM5T { C p ID p 5 pBLOpBHI ) 
C(1)=CMATRX(KC*KM) 

C(2)=CMATRX(KC*KN) 

C ( 3) rCMATRX ( KC * KO ) 

C (4)=CKATRX(KC*KP) 

C (5)~-CMATRXJKCp92 _ 

CALL SIMSTTC p ID p 5 * BLO* BHI > 
Cl 1 ) rCMATRX (KD* KM) 

C(2)=CMATRX(KD*KN) 

C (3)=CMATRX(KD*KO) 

C (4)=CMATRX<KDpKP) 


0 00256_ 

00 U259 

G 0 0 2 6 0 

000261 

000262 

000263 

oco:'S4 

000265' 

00026a 

0 C 0 2 j 7 

0 C 0£o8 

000269 

000270 

000271 

000272 

000273 

000274' 

0GC275 

OC 02.76 

000277 

000278 

000279 

000260' 

000281 

000232 

1)00233 

000234 

000285 

000937 
000288 
CCC289 
000290 
000291 
000292 
000295 
040294 
C 0 0295 


C ( 5 ) --CMATRX < KO p 9 ) _ _ 

CALL SIMST (C * ID* 5 pBLOpBHI ) 

CALL SIMSD (X. KID* OXX. KERR .ITEQN) 

_ IF (KERR) 31 0» 145 >310 

' 145 KSUB=KID(1)' 

DLMTRX(XM*1)=X(KSUB> 

KSU3=KID(2> 

OLMTRX ( KN *3. ) =X (KSUB ) 

KSUB=KID(3> 

OLMTRX (KO*l)=X (KSUB) 

KS'UB=KID'(4) 

DLMTRX<KP*1)=X(KSU8) 

DO 147 1=1*9 

i'47~ "DUMMY (I ) =DLKTRX (171 ) 

IF ( IFLAG) 598 * 599 p 598 

596 WRITE ( 6*4018) __ 

599 DO 149 NzlVNSTA 

CALL SETUP COMGWpN) 

CALL MATMPY (E2MTRX ( 1 ? 1 ) * FMAT RX (1*1 ) p AMATRX (1*1) *9*9*9*9*9) 

" "CALL ' MATMPY ( AMATRX ( 1*1) .E1MTRX (1*1) *BMATRX ( 1 * 1 ) * 9 p 9 r 9* 9 * 9) 
CALL MATMPY ( BMATRX (1*1) r DLMTRX (1*1) rSMATRX (1 p1)*9»9p9»9p1) 

DO 149 1 = 1*9 _____ _____ 

QOOOFL ( I p fJ j rSMATRX (1*1) 

DLf-iTRX (1*1) rSMATRX (1*1) 

149 CONTINUE - 

IF (IFLAG) 605* 146*605 

605 WRITE ( 6*4025) 

DO 590 N= 1 *N5TA 

I F ( DPMI ( N ) ) 60 1*590*601 

601 DPMI (N)=DKN1 ( M) -r-DABS (QOOOFL ( 4 *N) -QOOOFL ( 8t N) ) 

W R I T E ( 6 *401 9) N* D K N 1J_N ) * PQ(N) » DPN1(n : 

590 CONTINUE 

600 CONTINUE 

_ 146_WR ITE J_ 6*4009 ) 0 P RT * DX X ' 

WRITE ( ' 6*4013) (DUMMY (K ) *K=1*4> 

DO 1149 1 = 1* NSTA 

1149 WRITE ( 6*400.3) ( GOOOFL. (N * I ) *N=1*4> 

LINE=NSTA+5 

WRITE ( 6.4014) (DUMMY (K> *K=5.8) 


_131 04248 
13104249 
13104250 
13104251 
13104252 
13104253 
13104254 
13104255 
13104256 
13104257 
13104258 
13104259 
.13104260 
13104261 
13104262 
13104263 
13104264 
13104265 
13104266 
13104267 
13104268 
13104269 
' 13104270 
13104271 
13104272 
13104273 
13104274 
13104275 
13104276 
13104277 
13104278 
13104279 
1310428.0 
13104281 
"1 31 04282 
13104283 
13104284 
131 04285 
13104286 
..13104287 
13104288 
13104289 
_131 042.90 
13104231 
13104292 
133 04293 
13104294 
13104295 
13104296 
13104297 
13104298 
13104299 
13104300 
13104301 
13104302 
13104303 
13104304 
13104305 
13104306 
13104307 



not: 2 '->7 
U0025S 
C 0 C299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307" 
000300 
0 0 0309 
000310 
000311 
000312 
000513 
000314 
000315 
009316 
000317 
000310 
000319 
000320 
J00321 
000322 
000323 
000324 
000325 
000326 
000327 
000323 
000329 
000330 
000331 
000332 
000333 
000534 ' 
030 335 
000336 
000337' 
000338 
0C0339. 
000340 
000341 
0 0 0 3 4 2 
000343 
OC 034 4 
000345 
000346 
000347 
000343 
0GG349 
000350 
C00351 
000352 
000353 
000334 
C00355 
C0G356 


DO 1150 1 = 1 ,’.STA 

WRITE < 6.4008) (QOOCFL(N.I) .Nz5.fi) 
LINErLINE+l 

IF (LINE-55) 1150. 1151. _1 151 

1151 WRITE ( 6.4023) 

LINE=1 

1150 CONTINUE ___ 

LINE=1 

150 CONTINUE 


END OF CASE 


WRITE 
GO TO 


(JS.4011) 

30 


KERR FROM SIMSET 


310 


3000 

3001 

3002 

4000 

4001 


WRITE ( 6 .5000) KERR. DXX 
NR = 9 

NC = 9 “ ' 

CALL FRINTM ! CMATRX (1.1) . NR . NC . NR . .1 2H CMATRX ) 

GO TO 150 

FORMAT (11A6.A4.5I2) ' 

FORMAT (12. 2E12. 6. 1013.14) 

FORMAT (6E12. 6) _ _ 

FORMAT ( 1H1 . 50X30HJOB E13104 VIBRATION ANALYSIS/// ) 
FORMAT (1H 11A6.A4.19HNUMRER OF STATIONS 12//) 


..4002 FORMAT J 1H0.13X4HL (15.. 29X4HL <?). 2.9X4HL (3), 29X4HL ( 4 ) // ). 

4003 FORMAT ( 1H012X5HEI (1 > ’2SX5HEI (2) .28X5HEI (3) .28X5HEI (4)//) 

4004 FORMAT ( 1H01 3X4HG ( 1 ) . 29X4HG ( 2) . 29X4HG ( 3 ) t 29X4HG ( 4) // ) 

4005 FORMAT (1H013X4HC(1) .29X4HC(2> . 29X4HC (.3 > . 29X4HC ( 4 ) // ) 

4006 FORMAT (1H0.7X7HI SUB J1 > 16X2HDX . i6X6H(5AMMATx ) Ll4X8HI SUB J2. 
114X3HETA. 16X4H8ETA // ) 

4007 FORMAT (1H012X8HW SU3 N1.25X8HW SUB N2.25X8HK SUB N1.25X8HK SUB 

1//) 

4003 FORMAT <9XE15«8.3U8XE15,3) ) 

FORMAT_ ( 1H1 . 26X8H0MEGA = E15. 8. 5X9HPETERN s E15.8) 

FORMAT ( 6 < 6H El 5. 8)) 

( 14H0 ENO OF CASE ) 


4009 

4010’ 

4011 

4012 


FORMAT 
FORMAT 

4013 FORMAT 

4014 FORMAT 


(IH1.53X8HOMESA = E15.6///) 


13104308 

13104309 

13104310 

13104311 

13104312 

13104313 

13104314 

131043)5 
13104316 
_ 13104317 
13104318 
13104319 

13104320 

13104321 

13104322 

13.104323 

13104324 

13104325 

13104326 

13104327 

13104327 

13104329 

13104330 

13104331 

13104332 

13104333 
13104334 
_ 13104335 
13104336 
13.104337 
_131 04338 
13104339 
13104340 
M2 131 04 341 
13104342 
13104343 
13104344 
13104345 
13104346 
_1 31 04 347 
13104348 


(1H0.15X1HV. 32X1 HM » 31X3HPHT .31X1 HI// /9XE15, 8. 3 (18XE15.B) ) 

( 1H011X7HV PRIME. 26X7HM PRIME . 25X9HPHI PRIME. 25X7HY PRIME//13104349 

1/9XE15 « 8 . 3 ( 18XE15...8 5 ) 13104350 

4015 FORMAT (1HG.7X7H C ( 1 ) . 15X4HC (2) . 15X8H C(3) . 14X8H C(4) . 13104351 

1 12X7HP SUB X » 15X4HFLEX // ) 13.104352 

4Q IS.. FORMAT ( 5 (6H £15,8)) . 13104353 

4017 FORMAT (1H0.7X3HW SUB N1 . 13X8HW SUB N2.J3X8HK SUB N1.14X8HK SUB N21.3104354 

13104355 


1H0.7X3HW SUB N1.13X8HW SUB N2.K-.X8HK SUB N1.14X8HK SUB 
1 . 12X7HA SU3 X.13X7HB SUB X // ) 

4018 FORMAT ( 1H0 . 32X5HST A X.6X7HK SUB_X . 1.2X8HP_SUB_0X . 12X7HP_SUB X_L 

4019 FORMAT (IK . 53X12. 3 ( 5X . Ei5« 3) ) 

4021 FORMAT (19H NUMBER OF ROOTS I3.5X.13H OMEGA F3.3# 

1 5X.13H DELTA OMEGA F8. 5 . 5X ? 1 014 . 17 /// ) 

4022" FORMAT (lHi) 

4023 FORMAT (1H1.60X17H*** CONTINUED ***/12X7HV PRIME. 26X7HM PRIME. 

. . 1 25X9HPHI PRIME..25X7HY_ERIME//_/9XE15,.B_._3JL8XE15,8) ) 

4025 FORMAT !1H ) 

5000 FORMAT (1H .32X66H*** THE EOUATIONS HAVE NOT BEEN SOLVED— AM GOXNG13104364 

. 1 TO NEXT ROOT. /// 54X7HKER R = I1.3X6H DXX : F 6.3 ) 13104365 

6000 STOP 13104424 

END 13104366 


1 3104356 
13104357 
13104358 
13104359 
13104360 
13104361 
.13104362 . 
13104363 




a ELT MATMPYr 1. 710420, 59943 


C00C01 
0 J0002 
000003 
000004 
0 u C 0 0 5 
000006 
000007 

ooooce 

000009 

000013 

000011 

000012 

OOOOli 


SUBROUTINE MATMPY ( A p B i C p l< 1 j M 1 p Kj M p N ) 
IMPLICIT REALMS (A-HpO-Z) 

DIMENSION A ( 20 ) > B ( 2 0 ) p C ( 20 ) * 

DO 10 1 = 1 pK 
DO 10 J=1 p N 

1 1 _= (_J-1 ) T-K 1 + 1 

c(ii) = o.odo 

CO 10 L=1 p M 

JJj=(L-l)#Kl+I 

KK =(J-1)*M1+L 

10 C(II) =C ( 1 1 > +A ( J J ) $8 ( KK ) 

RETURN 

END 


13104472 
13104 
_13104473 
13104474 
13104475 
_131 04476 
13104477 
13104478 
..13104479 
13104460 
13104481 
_1 31 04482 
13104483“ 



£LT PRILT-Wl > 710420. 59944 


0 (j 0 0 0 1 
000002 
000003 
0 0 00 09 
U 1)0005 
000005 
0 0 0 C 0 7 

uuoooe 

000009 
00 JO 1C 

ococu 
00 0012 
003013 
0 U 0 0 1 9 
000015 
- jooia 
000017 
00 0013 
0CC019 
000920 
000021 
000322 
0U0023 
000024 
300025 
000025 
000027 
0U002Q 



c. 


c 


SUBROUTINE PRINTM ( A p MR p NC » MAXR p TITLE ) 13104445 

IMPLICIT P.EAL*8 <A-HpO-Z) 

. 13 J 04446 

13104447 

SUBROUTINE TO PRINT ANY MATRIX WITH 2-WORO TI'LE 13104448 

..... CALL PRINTM (CMATRX.p.3 p 8 p_8* 12H CMAJR.X L EXAMPLE CALL. UP .. 133 04449 

13104450 

DIMENSION A ( 1 ) pNHEQ ( 8) p TITLE (2) 13104451 


_ MATRIX TITLE 13104452 

WRITE (6 » 22 ) TITLE 13104453 

22 FORMAT ( 1H0 « S2X i 2A6 ) 13104454 

_ __ 13104455 

DATA B /' COL’/ 13104456 

DO 50 1 = 1 p NC « 8 13104457 

II=NC-I + 1 _ _ __ . 13104458 .. 

IF i 1 1-8) 20 ? 20 p 10 13104459 

10 11=8 13104460 

20 DO 30 J=1»II . 13104461 . 

30 NHLO< J)=I+U-i 13104462 

WRITE ( 6 ? 120 ) (BpNHED(J) pJ=1pII) 13104463 

DO 50 J=1pMR _ ... . 13104464 

KL=J !• ( 1-1 ) ■:••(,! A XR 131 04465 

XH=KL-S- < II-l ) *MAXR 133 04466 

50 WRITE (6)150! (Jp A (lO pK=KLpKHp.MAXR > 13104467 

RETURN 13104468 

120 FORMAT UH0p9X»10(A6pI4p4X> ) 13104469 

130 F0RMAT_C_4H R0Wp.I3p5X_p.1P8E 14. 7) 13104470 _ 

END ~ 13104471 



id ELT REPEAT, 1.710420, 59945 


000001 
000002 
000003 
',0 0004 
0 0 0 C 0 5 
000006 
000007 
000009 
000009 
0 C 0 0 i 0 
U00CJ.J. 

0 C» i > c 12 
000013 
000014 
0 JC015 

01 J0.1& 

000017 
C 0 0016 
000019 
000020 
003021 


SUBROUT I NE REPEAT (A, AA, Be 9B , C, CC ,D »DO»E » EE , F . FF» NR >’ 


13104425 


IMPLICIT REAL*3 (A-H.O-Z) 


C#«#***##**«^t<*:^*:i:#^V**4:******#* V#* <<* * * + * * *#♦* + + **^t**>);* 1 3 1 04 4 26 

C REPEAT READS IN A STATION CARD OR SIMULATES A REPEATED CARD BY 13104427 

C MOVING DATA* 13104428 


C __ _A.BeC.DeE.F_ OLD _AAeB8.CC> DO, EE, EE NEW __ • 13104429 
C NR = NUMBER OF REPEATS FOR A PARTICULAR CARD 13104430 
C* s**^*'****#*#**^* *$>*$** ❖***«*«**$ *****###$«>f*$*>!<:<»***«****«************ 131 04431 


IF(NR-1)400,.1PO,.100._ 

400 READ <5,3002) A A , B3 » CC , DD e EE , FF e MR 

3002 FORMAT ( 6E12»6» 13) 

GO TO 70 0 __ 

‘ioo aa=a * •*’ 

RD=B 

CC=C _ 

DD=D 

EE-E 

_FF=F _ _ __ 

NR=NR-1 
700 RETURN 
END 


13104432 

13104433 

13104434 

13104435 

13104436 

13104437 

13104438 

13104439 

13104440 

13104441 

13104442 

13104443 

13104444 



a ELT SETUP rlr710420p 59947 


000001 
000002 
00CC03 
0 COCO 4 
000005 
000006 
000007 
0 0 G 0 0 8 
000009 
0CQ010 


SUBROUTINE SETUP ( OMG > N ) 

IMPLICIT REALMS (A-HpO-Z) 

DIMENSION DL1 ( 50 ) pDL2<50) >DL3(50) .DL4(50) ■. DFI 1 C 50 ) * DEI2 ( 50 ) , 

1 DE 13(50) fDE 14(50 ) pDSI (50) »DG2 ( 5(L » DG3 ( 50 ) * DG4 ( 50 ) > 

2 DC 1(50) » DC2 ( 50 ) pDC 3(50) .DC4(50) »niJK50) pDX( 50) p 

3 _ _ DGAMX{50)*DIX2(50)»DWNl(50)«OWN2'50)»DKNl(50)»DKN2(50) 
DIMENSION DETA(5G) »DDETA(50> »DFLEX(50) 

DIMENSION E1MTRX (9»9) iE2MTRX(9p9) » AMATRX <9, 9 ) pBMATRX(9p9) » 

1 _ CMATRX (9p9) pFMATRX (9*9) » DLflTRX ('*» 1 ) *SMATRX(9» 1) » 

2 DUMMY (9) fC(5) p ID ( 5 ) p X ( 4 ) p K ID ( 4 ) ■ STORE <9» 50) 


000011 

n 

I MENS I ON DPMI (50) pP0<5 

0) 

eOANl (50) 

• DBNK50) 

p Pi ( 50 ) 

9 

P2 ( 50 ) p 

P3 ( 50 ) 

000012 

c 

OMMCN DL1 

9 

DL2 

P 

DL.3 

9 

DL4 p 

DEI1 

9 

DEI 2 

9 

000013 

1 

DEI3 

9 

0EI4 

9 

DG1 

9 

DG2 p 

0G3 

9 

DG4 

9 

000014 

2 

DC1 

f 

DC2 

9 

DC3 

9 

DC4 » 

DIJ1 

9 

DX 

9 

000015 

3 

DGAMX 

9 

DIX2 

9 

DWN 1 

9 

DWN? p 

DKM1 

J> 

DKN2 


COOClfe 

4 

ElMTRX 

0 

E2MTRX 

0 

AMATRX 

9 

BMATRX p 

CMATRX 

9 

FMATRX 

9 

000017 

5 

KC 

9 

KD 

t 

KM 

9 

KN > 

KO 

9 

KP 

9 

Oo CO 18 

5 

£ET A 

9 

.on, ETA 

9 

DFLEX. ... 

.9. 

.DPMI t 

PD . 

9 

DAM1 

9 

000019 

7 

D3N1 

f 

IrLAG 

9 

NTRImL 

9 

3 p 

DLMTRX 

9 

SMATRX 

9 

000020 

S 

DUMMY 

9 

KK 

9 


9 

KB 





CC0021 

C 













010022 
000023 
0 0 i^O 24 
000025 
Ou 0 0 26 


C 

c 

_. 1 _ 


SETUP NON-ZERO » NON-UNIT ELEMENTS OF MATRICES El>E2pAND F 


E 1MTR X ( 2 > 1 ) = DLKN) 
IF (DEIKN) .NE.O.DO) 
ElMTRX ( 4 » 2 ) = 0 o DO 


GO TO 2 


000027 
0GC026 
000029 
OOC03O 
000031 
000032 
000033 
0 .’C 0 34 
0 0 0 0 3 C 
0C0036 
OC C 037 
000038 
000039 
OLD 040 
Cl 0 041 
OC 1)042 
Ol C 045 
010044 
000045 
0 0 0 4 6 
00 CO 47 


ElMTRX (3»2)_=_0. DO 

GO TO 3 

2 ElMTRX ( 4 ? 2) = DL1 <N) **2* . 5D0/DEI 1 ( N) 

ElMTRX ( 3 » 2 ) --DL1 (N) /DEI 1 ( N) 

3 E 1 MTRX ( 3 p 1 ) =-E1MTRX(4 p2> 

IF ( (DEIKN) .NE.O.DO. OR.DCl(N) .NE.O.DO. AND. DL1 (N) .NE.O.DO) 

X o AND . DG1 { N) .NE.O.DO) GO TO. 4 ... 

ElMTRX ( 4 p 1 ) = 0 .DO 
GO TO 5 

4 ElMTRX (4.1) = DL1 ( N> **3/6.Dp/DEIJ. (M)-OCl <U) +DLKN) /OG.l (N) 

5 " ElMTRX (4. 3) r-ElMTRX ( ? > 1 ) 

ElMTRX ( 6 p 5 ) = DL3(N) 

IF <DEI3(N) ,NE.0.D0)_ G0_J0.j6 

ElMTRX ( 7 ? 5 ) = 0.00 
ElMTRX ( 7 p 6 ) = 0.00 

ElMTRX (a»6.)._=_0, DO 

GO TO 7 

6 ElMTRX (7. 5) =-DL3 (N) **2/2 . D0/DEI3 (N) 

ElMTRX ( 7 p 6 ) =-DL3(N)/DEI3(N) 

ElMTRX (8.6) = DL3 ( N ) **2/2 • DO/DE 1 3 ( N) 

7 IF ( (DEI3(N) .NE.O.DO. OR.DC3(N) . NE. 0 . DO . A nID . DL3 ( N) .NE.O.DO) 


000048 _ . X .. . . AND. DG3(N) .NE.O.DO) _GO_TO_B 

CO0C49 ElMTRX (8.5) = 0.D0 


000050 GO TO 9 

000051 8 ElMTRX ( 8 p 5) = DL3 (N> **3/6.D0ZDEI3_(NL-DC3_L ; 'l) *DL3 (N) /DG3 (N) 

0)0052 9 ElMTRX (8*7) =-ElMTRX ( 6 . 5) 

T-00C53 E2MTRX ( 2 p 1 ) = DL2 ( N ) 

0 ’0054 IF (DEI2(N) .NE.O.DO) GO TO 10 

C OC CSS E2MTRX (4.2) = O.DO 

'.-..ISO E2MTRX (3.2) - O.DO 


13104367 

13104368 
13104369 
13104370 
13104371 
13104372 
13104373 
135 04374 
131 04375 
13104376 
13104377 
13104378 
13104379 
13104380 
13104381 
13104382 
13104383 
13104384 
13104385 
13104384 
13104385 
13104386 
13104 OA 
13104 OB 
13104 OC 
13104 OD 
13104 OE 
13104 OF 
13304 OG 
13104 OH 
13104 01 
13304 OJ 
13304 OK 
13.104 OL 
13104 OM 
13104 ON 
13104 OP 
.13104 00 
13104 OR 
13104 OS 
13.104 OT 
13104 OU 
13104 0 V 
_ 13104 OW 
13104 OX 
13104 OY 
13104 nz 
13104 1A 
13104 IB 
13.104 1C 
13104 ID 
13104 IE 
13104 IE 
13104 1G 
13104 IN 



U 00057 


GO TO 11 

13104 

1 I 

f 3 0058 

10 

E2MTRX ( 4 p 2 ) = DL2(N)**2*.5D0/DEI2<N> 

13104 

1 J 

000059 


E2MTRX ( 3 » 2) =-DL2 t N) /DEI2 ( N) 

131 04 

IK 

000060 

.11 

E2MTRX ( 5 » 3 ) =-E2MTRX ( 4 f 2 ) 

13104 

1L 

000061 


IF ( (DEI2(N) ,NE.O.DO.OR,DC2(N) .NE . 0 .00 . ANO .DL2 ( N> .NE.O.DO) 

13104 

1M 

00C0&2 


X ,AND.DG2{N) .NE.O.DO) GO TO 12 

13104 

IN 

000063 


E2MTRX ( 4 » 1 ) = 0.00 

13104 

10 

000064 


GO TO 13 

13104 

IP 

0Q0C65 

12 

E2MTRX (4>13 = DL2(N)**3/6.00/DEI2<N)-nC2CN)*DL2(N)/DG2CN> 

13104 

IQ 

COO*' 66 

13 

E2MTRX (4f 3) =-E2MTRX (2» 1 ) 

13104 

1R 

000067 


E2MTRX. ( 6 > 5 > = DL4<N) 

13104 

IS 

0C0C6S 


IF (QEI4CN) .NE.O.DO) GO TO 14 

13104 

IT 

OOOC69 


E2MTRX (7.5) = O.DO 

13104 

1U 

00 0070 


E2MTRX (7p6» = O.DO 

135 04 

IV 

000071 


E2MTRX ( 8 » 6) = O.DO 

13104 

1W 

000072 


GO TO 15 

131 04 

IX 

000073 

14 

E2MTRX ( 7 > 5 ) =~DL4(N)«*»2/2.DC/DEI4<N) 

133 04 

1Y 

<j j C 0 / 4 


E2MTRX (7.6) =-DL4 ( N ) /DEI 4 ( N ) 

13104 

12 

CO 0075 


E2MTRX i S » 6 ) = DL4 ( N) **?/2 .DO/OEI4 ( N) 

13104 

2 A 

0 0 0 «j / 6 

15 

IF ( <DEI4(N5 . NE.O.DO. OR. DC2(N) .ME. 0 .00 . AXD.DL4 (Ml .ME. 0.00) 

3 3104 

2B 

000077 


X ,AND.0G4(N) .NE.O.DO) GO TO 16 

13104 

2C 

000078 


E2MTRX < 8» 5) = 0.00 

13104 

2E 

000079 


GO TO 17 

13104 

2F 

000030 

16 

E2MTRX ( 8 « 5 ) = DL4 (N) #*3/6 • D0/DEI4 (N) -0C4 (N) *D , -4 (N) /DG4 (N) 

13104 

2G 

00 0031 

17 

E2MTRX ( 0 » 7 ) =-E2M.TRX !6»5) 

13104 

2H 

0 0 0 - 3 2 


FMATRX 1 1 , 4 ) =PWN1 (N)*OMG/3R6.04DOvOMG-OKN1 • N) 

131.04411 


00 0 0 33 FMATRX <1» 7) =DX(N)*QKNi<N) 

000034 FMATRX ( 1 > 8) =DKNI (N) ______ 

'00008!? FMATRX < 1 » 9) =D6AMX CN) *0MG#*2+DEf A (N ) 

0 00036 FMATRX (2p 9) =DBETA(N)*0y,G*^2 

0C0087 FMATRX (2 » 3) =-DI<Jl (N) #0NG*#2 

000088 “ ' FMATRX ( 5 » 4 ) sFMATRX ( 1 » 8) " " 

00009 FMATRX ( 5 > 7 ) s-FMATRX ( 1 » 7) 

O' 0090 _ FMATRX(5t 8) =nVM2(N)*OMG/386.04DO*OMG-OKNl (N) -DKIM2 (N) 

0 w 0 0 9 1 ' ~ ~ FMATRX ( 6 f 4 ) =FMATRX ( 1 > 7) 

0 COG 92 FMATRX<6*75=DIX2(N)*OMG**2-DX(N)»#2*OKNl(i'l) 

000093 _ FMATRX(6»8)=FMATRX<5?7^ 

7 .'0094 " " ‘ RETURN" " 

000095 END 


13104412 

13104413 

13104414 

13104415 

13104416 

13104417 

13104458 

13104419 

13104420 

13104421 

13104422 

13104423 

13104424 



,3 ELT SI«EQrl.7l0422» 38770 


000001 
000002 
000003 
0 0 C 0 0 4 
0 0 00b 
000006 . 
OuO J07 
000008 
000009 . 
0 U 0 0 1 0 
OOOOil 
0000 3.2 
oooni ~ 

000014 
O') 00 If) 
LOUUb 
000017 
C 0 C V. - 6 
0 G l 0 j. 9 
000020 
000071 
COO 022 
POO 023 
C OU 24 
Q0C025 
000026 
GCbi.'27 
000G2B 
000029 
000030 
0 U 0 1 > 3 1 
000032 
000033 
GO Cl' 34 
000 ■! 56 
oo on 36 
0 v u 0 3 7 
1)00038 
000039 
GO on 40 
OOCufil 
6 Cl:,': 2 
0 0 0 0 4 3 
CCOi 44 
000045 
£■ £ o i- i 0 
0 0 or 47 
r- c a « • 8 

0. 0 0 49 
000050 
400051 

0 G 0 j 2 
V. 0 0 4 53 
00,,(i54 
O'Ji l :?5 

U Jb^ij 


SUBROUTINE SIMEQ ( A ?8 .NM.MmYnA "» ITEM >00 1 NNO » KERR) 

C SOLVES MATRIX EQUATIONS - AX = 8 

C GAUSS ELIMINATION WITH COMPLETE PIVOTING ON ABSOLUTE LARGEST 

C ELEMENT TO FORM TRIANGULAR MATRIX .WITH BACK SUBSTITUTION FOR 

C. ... SOLUTION VECTORS. 

C * * » $ * $ 1 

c 

C CALL. SIMEQ .( ApB»NN»MM*NA_ , ITEM » DO > NN n « KERR ) 


C A = A(1p1) OF INPUT MATRIX 

C B = INPUT VECTORS 

C NN = NUMBER OF SIMULTANEOUS, EQUATIONS* 

C MM = NUMBER OF B-VECTCRS. 

C NA = DIMENSION OF MATRIX A. THAT IS» A(NA» — ) 

C ITEM = TEMPORARY STORAGE (FOR PERMUTATION. VECTOR) 

C WITH DIMENSION - ITEM (NA) 

C DD = DETERMINANT 

C NND = POWER OF. TEN TO MULTIPLY DETERMINANT 

C KERR = ERROR CODE* =Kp SINGULAR RANK p =-l SOLVED EQUATIONS 

DOUBLE PRECISION A(NApNA) pB(NAp1 ) pPIVOTpXTEMpDpDD 

DIMENSION ITEM ( 2 ) _ 

C 

D = 1 » 0D0 

C NO _ ..= POWERS OF T£NS_F ACTOR JFOR__DETERM I NANT • 

NO = 0 


6121 nno 2 

6121 0003 
61210004 
61210005 
61210006 
61210007 
61210008 
61210009 
61210010 . 
6121001 1 
61210012 
61210013 
61210014 
61210015 
61210016 
61210017 
61210018 
61210019 
61210020 
61210021 
61210022 
61210023 
61210024 
6121 0025 
61210026 


r 

C 


1 




C 


N=NN 

M=MM 


SET-UP THE PERMUTATION VECTOR. 

DO 1 _ I = 1pN_ 

ITEM I) = I 

Nl = N-l 

DO .60.. K=1»N 

SEARCH AND SET THE ABSOLUTE LARGEST ELEMENT AS THE PIVOT. 

PIVOT = ”0. DO 

DO 10 I — K > N 

DO 9 _ . J=KpN . __ . 

XT EM = A(I.J) 

IF (DABS(XTEM) .LE. DABS(PIVOT)) GO TO 9 

PIVOT = XTEM 

IS = I 

IT = J 

CONTINUE 

CONTINUE 

COMPUTE DETERMINANT AND TEST FOR SINGULAR MATRIX. 


0 = D * P I V 0 T 

IF(D.NE.O.DO) GO TO 11 

IF MATRIX IS SINGULAR.SET THE rank OF MATRIX A in KERR 
KERR = K— 1 

GO TO 100 

XTEM = DABS ( D ) 


IF (XTfM.LE. 1 .DO) 


61210027 
_ 61210028 

61210029 
61210030 
__ 61210031 

6121 0032 
61210033 
___ 61210034 

61210035 
61210036 

61210037 

61210038 

61210039 

61210040 

61210041 

6121.0042 

61210043 

61210044 

61210045 

6121 0046 

6121 0047 
61210008 
_ 61210049 

61210050 
61210061 
61210062 
AND EXIT6121 0053 
61210054 
6121 0055 
61210056 
61210067 


11 


GO TO 13 



...57 

900059 

J c o 5 o 

0 C Cj 0 o 1 

000052 

000053 

00 00 69 

0 0 'JO 55 

000036 

000067 

00 0058 

000069 

0U0070 

000071 

0 00 072 

000073 

000074 

U 00075 

0 0 u C 7 6 

000 J 77 

000078 

000079 

0C0D30 

000031 

00 0032 

00 00 5 3 

000039 

000035 

0000-36 

000037 

000030 

000039 

000090 

0UUC51 

000092 

000093 

3000 99 

000095 

OU0096. 

30005/ 


0 = D/10,00 • 

ND = ND+1 

GO TO 11 

13 IF(XTEM.GE.O.IDO) GOJTO 14 

0 = 6*1*0. DO 

NO = ND-1 

GO TO 11 . 

19 CONTINUE 

IF(K.EQ.IS) GO TO 30 

C __ ___ _ _ _ 

C IF THE PIVOT IS NOT IN THE RIGHT ROW , INTERCHANGE ROWS. 

C 

_ DO 2C J-l i N _____ __ 

XTEM = A < I S , J ) 

A ( IS » J 5 = A < K » J ) 

A (K . J) = X_TEM_ ___ 

20 "CONTINUE "" " 

DO 21 J=1»M 

XTEM _= B(ISfJ) 1 ___ 

R(ISeJ) = 8(K ,J) 
r.<:< >J) = XTEM 

21 CONTINUE 

D = -O 

30 IF(K.EQ.IT) GO TO 90 

C 

C IF THE PIVOT IS NOT IN THE RIGHT COL, » EXCHANGE COLS AND RECORD 

C THIS IN THE PERMUTATION VECTOR, 

C 

DO 31 = 

XTEM = A(I,IT) 

A C I » IT) = A ( I *K ) 

A ( I » K )" s'XTEM" 

31 CONTINUE 

D = -D 

C SET PERMUTATION VECTOR 

C 

“ T ~ " '= ITEM ( IT) 

ITEM! IT) = I TEM ( K ) 

ITEM { K ) = I 

c 


01 CO 98 40 CONTINUE 

000099 ___ K1 = K + l _ __ _ __ __ 

000100 IF(Kl.GT.N) GO TO 60 

900101 c 

: 0 0 i 0 2 _ _C _ MULTIPLY., THE K-TH ROW BY -Ail., K ) /iy VOT_AN 1.ADD TO THE I-TH ROW 

000103 ‘ DO 50 I-K 1 » N 

000104 DO 50 J=K1»N 

030105 _ A(I»J) = A(I»J) - A ( K , J ) /PIVOT * A ( I , K ) 

000106 ' ‘ 50 CONTINUE 

000107 DO 51 I=K1,N 

300108 __ DO 51 J=1»M_ 

000109 " B ( I r J ! = B ( I > J j - A (I , K ) /PIVOT * B ( K , J ) 

900110 51 CONTINUE 

000111 60 CONTINUE L_ 

VC Jil 2 "c 

'3:0113 C BACKSUSSTITUTION FOLLOWS. 

-3-.114 C 

i ."‘■115 DO 70 J=1»M' ' " " 

- 1 1 (> B(N.J) = B!N,J)/A!N.N) 


6121 0058 _ 
61210059 
61210060 
61210061 
61210062 
61210063 
61 21 0064 
61.21 0065 
61210066 
61210067.,. 
61210068 
61210069 
61.21 0070 
61210071 
61210072 
61210073 
612.10074 
61210075 
61210076 
61210077 
61210078 
61210079 
61210080 
6121 0081 
612.10082 
61210083 
61210084 
61210085 
61210086 
61210087 
61210088 
61210089 ~ 
612.10090 
61210091 
61210092 
612100O3 
61210094 
61210095 ~ 
61210096 
61210097 
612100°fl 
61210099 
61210100. 
61210101 
61210102 
61210103 
6121 03 04 
61210105 
61210106 
61210107 
61210108 
61210109 
61210110 
6121.01 11 
61210112 
61210113 
6123 0114 
6121.0115 
61210136 
6121 0117 
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v:n.-17 . . 70 __ CONTINUE, __ 61210118 


: oujis 
0 0 01x9 
000120 
000121 
000122 
000123 
000184 
0001.25 
OCiOr •':& 
000127 
0U012S 
000179 

71 

DO 73 

11 

= N 
K~2tN 
= I 

61210119 

61210120 

61210121 

I 

PIVOT 
DO 72 

xtem 

DO 71 

xtem 

= 1-1 
= A ( I » I > 

IT-1 »M 
= 0 . DO 
J=I1pN 

= A { I » J) *B ( Jf IT ) + XTEM 

61210122 

61210123 

61210124 

61210125 

61210126 

61210127 

72 

73 
C 

BUrlT) 

CONTINUE 

= ( B ( I » IT) - XTEM) /PIVOT 

61210128 

61210129 

61210130 

000130 

C 

USE PERMUTATION VECTOR TO EXCHANGE ROWS OF B-MATRIX. 

61210331 

0001,31 

C 



61210132 

000x32 


DO 81 

I - 1 r N 

61210133 

00 01 33 

79 

IF ( ITEM ( I ) .EG « I ) GO TO 81 

61210134 

000134 


X 

= ITEM ( I ) 

61210135 

0 0 0 - -> x> 


DO 80. 

J=1 f M 

61210136 

000 j 35 


XTEM 

= B(KrJ) 

61210137 

000 ) 37 


8 < K ? J) 

= B ( I • J) 

61210139 

COO 138 


B(I?J) 

- XTEM 

61210139 

000139 

SO 

CONTINUE 


61210140 

000140 


ITEM ( 1 ) 

= ITEM(K) 

61210141 

000141 


ITEM (K ) 

- K 

61210142 

00 Cl 42 


GO TO 79 


61210143 

000.143 

ai 

CONTINUE 


61210144 

000144 


K£RR=~1 


61210145 

000145 


DD 

= D 

61210146 

000146 


NND 

= ND 

61210147 

000147 

100 

RETURN 


61210148 

000x48 


END 


61210149 





BELT SIMST > i >73.0420 * 599.49 


OGOOOl 

cooooa 

000003 


SUBROUTINE SIMST CC*!<?M*A*B) 

IMPLICIT REALMS (A-H»0-Z) 

DIMENSION C<5)*K{5>*X(5) * ITEM ( 10 ) *KI ( 4) *A(10*1)*XX(10> 


! 

G000J4 

000005 

CCG006 


DATA IR/0/ 

IR = IR+1 

DO 10 1=1*10 _s 


' 

000007 

10 

S!IR»I) = 0.D0 



coooos 


DO 20 1=1 *M 



000009 


J = K(I) 



000010 


IF ( J ) 18*51*16 



ooooix 

16 

A ( IR * J) = C ( I ) 



000012 


GO TO 20 



000013 

18 

XX (IR) = C(I) 



00 0014 

20 

CONTINUE 



000015 

50 

RETURN 



000016 

51 

KER = 4 



0U0U17 


GO TO 50 



coocie 


ENTRY SIMSD (X*KI*DET *KERR*IDUM) 



000019 


IF (KER-3) 53*70*53 



00CC20 

53 

CONTINUE 


1 

000021 


N = IR 



700022 


lR =0 



000023 


DO 52 1=1 jN 



010024 

52 

Kim = i 



G 00025 


D = 0.00 



000026 


ND = 0 



000027 


CALL SIMEO (A* XX *N *1*10* ITEM# 0 * ND * KER ) 


1 

00 0028 


DO 54 1=1* N 



000029 

54 

xm = xxd) 



000C50 


IF CD) 56*58*56 



b 0 G G Ci i 

56 

CONTINUE 



000032 


DET = 0*10.DO**ND 


1 

00 CO 33 

53 

CONTINUE 



0'j0034 


IF (KER) 70*65*65 



000036 

65 

KER = 0 



000033 

70 

KERR = KER + 1 



0 G 0 C 3 7 

45 

RETURN 



GC003B 


ENTRY SIMSZ 



000039 


IR =0 



0 j 0 0 4 0 


RETURN 



G 60041 


END 




TRI X 


14 : 42 ; 30 


END CUR 
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APPENDIX G 

PROGRAM E13112 LATERAL VIERATION ANALYSIS OF A HARMONICALLY 
FORCED, UNDAMPED, LUMPED PARAMETER SINGLE BEAM SYSTEM SUPPORTED 
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LUMPED PARAMETER BEAM SYSTEM SUPPORTED ON NON-LINEAR SPRINGS 

— — . _____ 

G.L. Goudreau 


ABSTRACT 

This computer program determines the steady state 
response of an undamped, lumped parameter beam system 
to harmonic forces and/or moments. The beam may be 
supported by non-linear lateral springs of the form 
P = A y . It is compatible with and supplements Job 
1[|0Q9 which determines the natural frequencies and mode 
shapes of such a beam on linear springs. It is four times 
faster than the double beam program 1I|0I|3. This program 
has been extended to incorporate the exact load-deflection 
equations of angular contact ball bearings, permitting 
them to be represented exactly, including axial equilibrium 
and the effects of thrust on a rotating shaft. After 
convergence the program outputs at each station shears, 
moments, slopes, and deflections. For ball bearings, when 
present, a complete description of the equilibrium position 
of the bearing is determined, including axial, lateral, and 
rotational deformations, as well as load distribution and 
final contact angles of each ball. 
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INTRODUCTION 

This computer program computes the amplitudes of the shears, moments, 
slopes, and deflections produced in a lumped parameter beam system by 
harmonic forces and/or moments. It constitutes an extension of Job 14009 
developed by L.k. Govern d, which computed the natural frequencies and 
associated modal information for a lumped parameter beam system supported 
by linear lateral sorings. -Job 14036 differs in the following respects: 

1) It is a forced rather than a free vibration analysis,; • 2) It permits 
linear moment as well a lateral springs; 3) It permits non- lie-ear lateral 
springs of the form f = A y * ; and 4) It includes the exact lord deflection 
equations for angular contact ball bearings for specialized use in rotating 
machinery calculations. Input format is highly compatible between the two 
programs, facilitating determination of free and forced, vibration information. 

As in Job 14009, the beam system has a state vector of four variables 
(shear, moment, slope, and deflection), of which two at each end must equal 
zero. Ordinary beams, shear beams, beams on elastic foundations where the 
foundation modulus varies (thus, also axi symmetrical lateral vibrations of 
cylinders), and shafts of rotating machinery can be investigated with this 
program. Jn this lest application, the lateral stiffness of roller bearings 
can be well represented by a power form of load -’enaction curve, and ball 
be. .rings can ho accounted for exactly. 

This program runs in about one fourth the time of Job which 

analyzes two elastically coupled beams, and is to be preferred where 
housing effects can be neglected. 
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(The following throe pages are taken from the Users' Fanual for Job M009 
by L.K. Soverud) 

To describe the model, first consider the following beam on a 
discontinuous foundation: 


I 

///!/// ///////// . 

k (force/unit length) 


Ye might represent this structure for the vibration analysis as: 



l/e see that a typical element, 


which is called the N th hay in the 


above sketch, is: 
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The v/oight of the bay, V , is lumped at point N. The beam lengths, 
which need not be equal, are designated 1.(1) and L(2). The associated 
bending rigidities are 21(1) and 21(2). Tr. represent the elastic foundation 
acting on the bay, a spring constant K is utilized. Note that in this 
example K would equal £l.(l) + L(2)J k. 

One can see that the physical beam rigidities are unite well represented 
in the analysis whereas the mass distribution and elastic foundation 
representation depends on the number of lumping stations used. 

As a second example to describe the lumped parameter model, consider 
the following two bearing shaft with overhung rotors: 
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sSnlarging the sketch of -lay N: 



The value A M accounts for the rotary inertia and gyroscopic effects 
of the mass (of prime importance for rotors). it is shown as a "''Alembert 
moment, Good discussions of those effects and derivation of the above 
formula can be found in 'deferences (2), (3), end (4). The parameter I 

x 

is the mass moment of inertia of the mass about a diametral line and I . 

J 

is its mass polar moment of inertia. Understand i ng of the lumped parameter 
model is best obtained through a knowledge of the computational formulas 
used in the program. Therefore, the following section sets forth the theory 


and derivation of equations used in this vibration analysis 
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2. • STATE VECTOR 


{A.j 


The state vector A,, is defined as the column array of the shear, 
moment, slope, and deflection in the beam at the end of bay N. The 
fifth element of the state vector is the constant one which permits 
the inclusion of the load constants in the transfer matrices. 
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h. ELASTICITY TRANSFER MATRIX 
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This transfer matrix symbolically represents both spans of bay M 
and for each the appropriate i j>, Ely, Cy, and Gy must be used. 
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5. SOLUTION PROCEDURE FOR A SET OF LINEAR SPRINGS 


At the s tart , N = 0 , thus , { M 


Going across the first elasticity, 

{a ;j - [ E ;j{a .} 

And across the first mass, 

{ A,'] . [ p.j { A."] - [F.]le;]f&.j 

Next across the second elasticity. 

[A,}= . KJ[F, ][£,'] (A .}-[c.]H 

In like manner, transformations can be made across each 
bay, expressing each state vector in terms of the previous 
state vector, and thus in terms of the starting vector. 

. (J ST ft 

= ff L C J {A.} - L°] {&'} 

kJ - | 

Expanding we got, 
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The fourth order nature of the governing beam equation requires 
the specification of two bound arv conditions at each end. The 


program requires that two of the four variables of the state 
vector be zero at the beginning and at the end. Other homogeneous 
boundary conditions such as elastic restraints can be obtained 
by inputting a zero length so as to put the mass point at the 
boundary and then setting V and M equal to zero with appropriate 
lateral and/or moment springs. Likewise, concentrated end 
forces and moments can be inputted as V and T! with the boundary 
condition that V *= M = 0. 



Further, let 

M = subscript of 1st zero variable at end of last bay 

N = subscript of 2nd zero variable at end of last bay 

R = subscript of 1st non-zero variable at start of 1st bay 

S - subscript of 2nd non-zero variable at start of 1st bay 


Considering the two equations associated with the zero variables 
at the end, and dropping those terms multiplied by the zero 
variables at the start; 



Those can he readily solved for Q, , and Q„ . the two unknowns at 

I.'. 

start of the beam. Thus knowing the i.sj hi.al state vector, all. 
succeeding state vectors can be found !y ''walking .through" the 


the 

system. 
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.1. SOLUTION PROCEDURE FOR A SET OF NON-LINEAR SPRINGS 


The previous section described the explicit procedure for 
determining the response of an elastically supported beam to 


a harmonic force or moment input of frequency W. If the beam 
support (for example, hearings) has a non-linear load-deflection 
relation, the secant line intersecting the curve is not a 
constant, but is instead a function of the deformation of the 
beam. 



The elastic analysis described in the previous section 
yields an elastic spring force which is simply the product of 
the spring constant times the deformation. If this elastic 
force equals the non-linear force for the same deformation 
(as determined from the non-linear force-deformation relation 
as typified above), then the linear spring used was the correct 
secant. Adjusting the choice of sec;ir.ts until this agreement is 
achieved for all the non-linear springs supporting the beam 
leads to the solution of the problem. After a given unsuccessful 
Iteration, the initial and final secant values are averaged to 
obtain the trial spring for the next iteration. 
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The first trial spring for the first frequency investigated 
must be input to the program. When the response to a harmonic 
load of successive frequencies is desired, the converged secant 
value for the first frequency is used as the first trial spring 
for the second frequency. Likewise, the converged secant value 
for the second frequency is used as the first trial spring for 
the third frequency. After this, a parabola is fitted through 
the three previous converged frequency springs, and the first 
trial spring f or the next frequency is extrapolated along this 
curve . 



7. DETERMINATION OF THE NON-LINEAR FORCE 

As described in the previous section, the forced vibration 
analysis for a set of linear springs yields deformations and 
associated elastic forces in the springs. In order to test for 
convergence, the non-linear force associated with that deformation 
must be determined. At present, the program permits two types of 
non-linear springs. The appropriate flag must be set in the input. 

a) FLAG(M) = 1. Angular Contact Ball Bearing: The 

pertinent bearing data is input after all the 
station data, and the exact load-deflection equations 
for ball bearings are utilized, including the inter- 




ac tion 

of thrust with 

the lab 

sral response. 



b) FLAG( i! 

) - 2. P = A y 3 

where 

A ar.d 

B are 

constants 



input 

to the program. 
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The explicit analytical load-deflection relations for 
angular contact ball bearings have been derived and are 
extensively treated by A.B. Jones of New Departure in 
Reference (5”). 


The outer race of the bearing is assumed fixed in space. 
The inner race has three degrees of freedom with respect to the 
fixed outer race. It may move axially, laterally, and may 
rotate. It is also capable of transmitting three force 
resultants between shaft and bearing support (i.e., lateral 
force, axial force, and moment). Each of these force 
resultants can be expressed explicitly in terms of the three 
deformations. These functions are explicit, but non-linear. 
Their inverse cannot be explicitly stated, that is, the 
deformations cannot be expressed in terms of the three force 
resultants, nor can mixed functions cf forces and deformations 
be expressed. 


H - F, ( A A , > © ) 

v = f i ( A* , a* , e ) 

M - f, ( } a) 



The significant parts of the derivation have been reproduced 
on the following pages. The value of "K" referred to on p 22 
by Jones, and DKK in the program, is not computed internally 
by the program, though it could be, but is computed by IBM Job 
773A. Since this number is a constant, it need be computed 
only once. Job 7' 7 3A essentially programs Jones' equations in 


an iterative 
input loads. 


heme to yield deformations as a function of 
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I. Basic Geometric Halations, 

The operating characteristics of a ball bearing depend to a great 
extent upon the internal fitup. Internal fitup is generally mea- 
sured by the diametral c learance of the bearing. 





Fig. 1 


Fig. 1 shows a cross section through 
a radial, single row bearing. Dia- 
metral clearance is denoted by P a 
From Fig. It 


P* 0 = O o - D ■ ~Zc( E <i* 1 

Although diametral clearance is gener- 
ally used in connection with single 
row, radial bearings, Eq. 1 is appli- 
cable to angular contact bearings as 
well since there is a definite relation 
between diametral clearance, race curva- 
tures and free contact angle (See Eq. & 

P.,5 ). 

1 $ 

The value of P D from Eq. 1 may be posi- 
tive or negative. Loose bearings have 
positive diametral clearance. Tight bear- 
ings have negative values of P> 0 . 

Diametral clearance in loose, single 
row, radial bearings is sometimes called 
radial clearance, radial play, radial 
shake, diametral play or diametral slack- 
ness. 

For loose, single row, radial bearings 
diametral clearance may be defined as 
the maximum distance one race may move 
diametrally with respect to the other 
without the application of measureable 
force when both races lie in the same 
plane. 



Race curvature is a measure of the 
conformity of the race to the ball in 
a plane passing through the bearing 
axis and transverse to the raceway. 

It is expressed as a percentage or a 
decimal. Throughout this text decimal 
notation will be used. 


Fig. 2 


The curvature of a race is defined as* (Sea Pig. 2) 


* d 

Thus, if the curvature and ball diameter are known, the radius of curva- 
ture is* 


r 


QUEER RACE 



The distance between the centers of 
curvatures of two races in line and 
line contact with a ball is of great 
importance. This distance is indica- 
ted by D in Fig. 3 and is a fixed 
quantity depending on race radii and 
ball diameter. Denoting quantities 
referred to the outer race by the sub- 
script } 0 , and quantities referred to 

the inner race by the subscript, ■ , 

we have from Fig. 3* 

D'E^r-d 

Since both and jr. may be expressed 

in terms of outer and inner race curva- 
tures, respectively, by Eq. 3, we have* 


Fig. 3 


D- 


a *4-0 y 


Letting* 




O ” 3c / 


The quantity 3 in Eq. 7 is known as the total c urvature and is a mea- 
sure of the conformity of both outer and inner races to the ball. Upon 
it depend all bearing deflection computations. 


Eq. 2 
Eq. 3 


Eq. 4 

I 

Eq. 5 
Eq., 6 

Eq. . 7 



18/ 


Free c ontact angle is the angle made by a line passing through the points 
of contact of the ball and both raceways with a plane perpendicular to 
the axis of the bearing when both races are centered with respect to each 
other and one race is axially displaced with respect to the other without 
the application of measureable force. 


OU77T/R P/ICC 



Fig. 4 


The centers of curvature of both outer 
and inner races lie on the line defin- 
ing the free contact angle. Free con- 
tact angle is denoted by S3 and is 
illustrated in Fig. 4. ° 

Free contact angle is determined by dia- 
metral clearance, , and total curva- 
ture 9 £j , as: 


Cos/3 = 2&c/~P 0 Eq. 8 

' ° ZBa! 

P a - ZBc/(/~Cos/3 a ) Eq. 9 


In the case of radially tight bearings 
the value of P n is negative and the 

value of cos/3 q from Eq. 8 becomes 

greater than 1. Mathematically, this 
is an imaginary condition. However, 
the value of cos /3 q for radially tight 

bearings obtained from Eq. 8 is of im- 
portance in certain deflection computa- 
tions and has a definite physical sig- 
nificance. 


Therefore, radially tight bearings may be considered as having an imaginary 
contact angle whose 3ine is zero and whose cosine is greater than 1 as de- 
fined by Eq. 8. 


Tk® effect of Interference mounting fits on free contact angle is important. 
Due to the interference fit there is a change in diameter of the press fit- 
ted raceway and a corresponding reduction in diametral clearance. Hence 
the free contact angle is reduced by press fitting. 




>v 


If d/^>is the total reduction in diametral clearance due to press fitting 
one or both race members, the initial mounted contact angle, /5 0 \ is* 

Eq. 10 
Eq. 11 

For the effect of interference fits on ring dimensions see Chapter XYIL 
p. 161. 


Co5 /3 ' - L 

° 23d 


or* 


Cos /3* - Cos/3> +■ 


Af=>o 

23d 


Free endplay is the maximum possible relative axial movement of inner 
race with respect to the outer, when both races are coaxially centered, 
without the application of measureable force. It is denoted by P £ 


In practice, endplay is measured under a definite gauging load and is 
known as gauged endplay.. Gauged endplay is always greater than free 
endplay because of the deflection of the bearing under the gauging load. 
See Chapter _202T , p.152 for the relation between gauged endplay and dia- 
metral clearance. 


Q(JT££ R^c£ 



Free endplay depends on total curvature 
and contact angle as shown in Fig. 5. 


^ 2 - «* 213d S/n/3 o 
or* 

3/n/3 = jBi L 

° 23d 


Eq. 12 


Eq. 13 


//V/V£7? AV?CV5 


Fig. 5 


The relation between free endplay and 

diametral clearance is obtained by 

eliminating /3 between Eqs. 8 and 13. 
0 


* 23d-\[(2Bd) z ~ * Eq. H 

/-£■ =\p3d^~~/^ Eq. 15 


u 



II. Solid Elastic Bodies In Contact 


When two, solid, elastic, curved bodies are pressed together under 
load a certain amount of flattening occurs in the neighborhood of 
the contact point. Due to the flattening there is produced an el- 
liptical pressure area over which the total load is distributed. 

The relations governing the shape and size of the pressure area and 
the distribution of stress over the pressure area were mathematically 
investigated by Heinrich Hertz in 1881. These relations show good 
agreement with test results except where the dimensions of the pro- 
jected pressure area are large in comparison to the principal radii 
of curvature of the contacting bodies. Good agreement is shown for 
conformities generally used in ball bearings. 

Although Hertz's work was limited to an analysis of the distribution 
of stress at the pressure surface, more recent investigators have 
determined the nature and distribution of the stresses occurring 
beyond the pressure surface and have substantiated their results 
by photo-elastic tests. 



Let the bodies be denoted by the sub- 
scripts "a" and "b" , respectively, as 
shown in Fig. 16. Also, let the princi- 
pal radii of curvature at the contact 
point be/?c?, and for body "a R and 

& <6 and f or body "b" . The radii of 

curvature are measured in two planes , 1 
and 2, at right angles to one another a 3 
shown in Fig. 16, the subscripts 1 and 2 
referring to the respective planes. 

When body n a n and body "b" are pressed 
together by the normal load, F> , the re- 
sulting pressure area whose semi-axes 
are a and b is shown in Fig. 17. 

Hertz gives the dimensions of the pres- 
sure area in terms of the transcendental 
functions^ andy-, as: 


6 ’^2 


where: 


g-- 3 n^& i^rr 

foCfy f fb t * /?d> 


Eq. 53 
Eq. 54 

Eq. 53 



aJ - 4Q-6j) 
6 Cb 


Eq. 57 


If both bodies are' of steel with modulus of elasticity 29 x 10 #/sq. in 
and with Poisson's ratio l/4> the value of g from Eq. 55 is* 




Eq. 58 


The values of the principal radii of curvature,/?^ , Ro g , f?6 f and 
are taken in accordance with Fig. 16. 


The principal radii of curvature may be either positive or negative, depend- 
ing on whether the centers of curvature lie within or without the body as 
shown in Fig. 18. 

In addition, planes 1 and 2 should be 
so chosen that; 






Fig. 18 


.-L + JL\Z + JL. 

Ro t Rb / Ra z Rb 

if ^ 


Eq. 59 


Plane 1 then determines the direction 
of the semi-minor axis of the pressure 
area and plane 2 the direction of semi- 
major axis of the pressure area. 

The values of the functions s<< and v 
for use in Eqs. 53 and 54 depend on 
the conformity of the contacting bodies 
in the vicinity of the pressure area as 
determined by the auxiliary angle, C . 


Cos c - 


~JL _ j_ , ± _ X 
Ro, Ra z Rb, Rb z 


/ 


/ 


Ra, Ro? 


+ j. _L 


Eq. 6C 





Koto that the denominator in the expression for cos xz is the same as that 
occurring under the radical in Eq. 55 and 58. 

^ and ~Y~ are related by another auxiliary angle, e > which depends 
on the shape of the pressure ellipse. 


where t 


cc* 

FCe) 

-y— ^ S J Z£(e) Cos £ 
V 7T 

Cos e - ^ 

<? 


Eq. 61 


Eq. 62 
Eq. 63 


A" and Z ((:) are the complete elliptic integrals of the first and second 
order, having the modulus sin £ 



Since accurate tables of A(s) and /FCs)&Te not always available, values of 
Z(e) and E(s) correct to ten decimal places are given on Charts 5 and 6. 
Four place tables may also be found in Jahnke and Emde's n Fubktionentafelr M 
1943 edition. 

By assuming a series of values of the modulus, sin £ , corresponding values 
of cos cr ,/*( and -y~ may be calculated by Eqs. 61, 62 and 63. 

Values of^if computed in this manner are plotted against corresponding 
values of cos tr in Charts 7 through 21. Values of ~y~ are plotted against 
corresponding values of cos xz in Charts 22 through 31. 

It must he emphasized that the semi-axes of the pressure ellipse, a and b, 
are the projected semi-axes and are not measured along the curvature of the 
pressure surface. 



23 / 



A call boaring derives its load carrying ability fret the forces 
produced at the contact points of balls and races. These loads, 
called normal ball load3 and designated by , result from the 

elastic deformations of the contacting bodies. 

Fig 4 27 shots a ball between two 
curved races. TTnon the ball ia ir. 
point (no load) contact with both 
races, the centers of curvature are 
separated by the distance 3o'{ see ?.2) 
•which depends on curvatures and ball 
diameter. 

If the races arc displaced with re- 
spect to each other sc that the ball 
is compressed between them, the ex- 
ternal force causing the compression 
is resisted by an elastic force (normal 
ball load) , , which acts along the 

lino passing through the displaced 
centers of curvature of the two races 
as shown in Fig* 28. 

The elastic deformations at the points of contact are and and 

tho sum of these two equals the normal approach of the two races. Since 
the curvature centers are fixed with respect to their races and move 
with thorn, the original distance between race curvature centers, *3c/ , 
is increased by the normal approach of the two rueoo. Calling tho normal 



The relation between normal ball load and normal approach isi 



P ~ K f 3 / z 


jl4o 




vrhoro the value of A is, from Ec. 143s 


/r 






A' 


[7<S/07(^^ <yj 


Sc. 149 


o 




id CV are obtained from Chart 56. 

<4 


ft may be more conveniently expressed in terras of mho axial deflection con- 


stant, /f , by the relation: 


/r ^ 


A/ 


Ec. 150 


Values of may be obtained from Chart 57. See ?. 49 


In a complete ball bearing which involves a number of balls symmetrically 
disposed around a pitch circle, the normal load on any ball and mho contact 
angle at which it acts may be completely determined and evaluated in terms 
of the following relative displacements of inner end outer races. 



1) A relative social displacement, A , 
of inner and outer races. 

2) A relative radial displacement,/^, 
of inner and outer races. 

3) A relative angular misalignment ,c\, 
of inner and outer races. 


Fig. 29 shows these displacements. They 
are measured with reference to the rela- 
tive position of inner and cuter rings 
when all parts of the bearing are in 
symmetric, geometric contact under zero 
thrust load. 


Some of the dimensions used in the fol- 
lowing discussion are: 


The radius of the locus of 
center of curvature of inr.e 


/?. 


JL r fJ- . Sid C<xs/3 y 
Z J 




Fig. 29 


race: 



whore: 


3 - pitch circle 



The radius of the locus of the center of 
curvature of the outer race: 


/? = /?. -3c/ Co^/S 

o i / o 


Sq. 152 


and are also connected by the relations: 


/?. -/? - oc/ Coa 

c o ' o 

ana: /?.-/? «• 3c / - ffng 

/ o ^ 

where: = Diametral Clearance 


Eq. 153 
nq. X 54- 


In order to express' the normal ball loads and operating contact angles 
developed within the bearing in terms of the relative displacements of 
the inner race with respect to the outer, the following system is used. 

The outer race is assumed to be fixed in space while the inner race is 
allowed to move with respect to the outer as shown in Fig. 29. The normal 
ball load and operating contact angle for a ball at any angle, <3 , measured 

around the pitch circle from the heaviest loaded ball, are obtained by 
evaluating the change in distance between inner and cuter race curvature 
centers in terms of the displacements shown in Fig. 29. 

Fig. 30 shows the relative position of inner and outer race curvature 
center loci before displacement. The locus of the outer race curvature 
centers is a circle in space and is referred to a fixed, three dimensional 
coordinate system, X, Y, Z. * The locus of the inner race curvature centers 
is also a circle in space and is referred to the movable, three dimensional 
coordinate systern,x'y Z* 

Now, assume that the origin of the movable coorn irate system is displaced 
the amounts n and / and misaligned the amount cX as shown in Fig. 31. 
These displacements are those previously shown in Fig. 29. 

In Fig. 31, the heaviest loaded ball lies in the >' y Z plane. 7,’e are in- 
terested in the normal ball load, , and operating contact angle , /3 , 

of a ball lying in the plane. This is determined by the relative 
positions of the intersection of the two race curvature loci with the 


pj.une 





c b, 

/ 


The distance, & , Fig. 31, between the centers o:' curvature of the iur.e: 
and outer races after displacement and Pleasured in the '3 plane is: 


ID - Sc/J(D/D/3 o +A +c{ /■ Cos /fd (Cos/ /-A Cos </>) 


where i 


4 

3d 


/c= A. 

3d 


,rS — <>V 

*1 - art 
cju 


nq. -s^5 
Eq. 156 
Sc. 157 
Eq. 15S 


/?. k and gf being the three displace ments of inner race with respect to 


the outer, Fig. 29. c( is measured in rad lane . /tf is the free contact 
angle of the mounted bearing before load application. 

The normal approach of the races, f~ , is, from Ec. 147: 

O' aj 


JA Bcf \ 

rJ 


\J(3//7/3 a +A ‘+c( R. Cos ¥>)+ (Cos/ / A 'Cos 'f) — / | 


The normal ball load, is, from Eq. 14o: 


/?- /f (Scf) J(5/n/3 0 +A*c(W t . Cos (/?) *+ (Cos/5 rA'Cos// -/ | 

L L J 

where f\ is the normal deflection constant from 2c. 149. 

Af 

The normal ball load may be more conveniently expressed in terms 
axial deflection constant, , as: 




f( - KC'ijfp/n/ aA Aos / AfCoSy/ /-A 'Cos // -/ j 


! >p 


2q. 35 9 


% 


nq. loo 


Eq. 161 


Values of C may be obtained from Chart 57. 



29 / 


The operating contact an^lo of a si—. pcii'i:. g.;oc 


17. H e yxcC*C -i - 


■3/sy/3 - 


/ . .. ' ' — 
-7/7 A 1 -.. v~ rf -,- C-f /-?; 


onCoS/3 =z 


\jfs/n/3 o + // ««£»' V- Cos /) 2 +(Cgs/s o //' 7 Cos $?/ ' 
Co s - 1 - .V Co o </? 


-» _ *■» £ 
uc. aoj> 


\J(&r7/ \ / /W'/ft Cos tp/,(Cos^ 0 +A'CoS <p) 2 
If" "the normal ball load, /^ , which ac'ss at "the contact, angle /C, (ulon, 


OUvi Ju 


ino £j in Fig. 31) is projected onto eh 3 X ~ panne m iig. 3~ 


cay be resolved into two components. One is a thrust Force,/ - / , parallel 
to the /< axis. The other is a vertical component, v , parallel to the 
ZT axis. 

The thrust component,//, is: 


//- C/' /- 


sq. -i.cn 


or 


_ /,V 2 >*/? W /r)- Cos (/?)*+ (Cos/syA'Cos </) 2 — /J (S/hQ *A '+//?; Cos /) 

\j (s/n/l +A /o,' ^ Cos ^ %(c*s/3+A Cos <f) 2 

The vertical component, S/ , is: 


163 


| / - fi Cos/3 Cos <f 


tv» / / 

J1C • C\A*J 


or 


I — — 7 3, 

X/cJ&O/Q th '+</ '/?■ Cos / Z +(CoS /S^A'Coo Cj ~ -/J Z (Cos /C. -/- /- 'c 
\] (C/o/3 q +A 7<r/^- Cos vf+fCoS/3-/ A'Cbs <p)'~ 


<PJ Cos s? 


tO/ 


If it is assumed that the pitch circle radius dess not appreciably change 
during the deformations, the moment of the thrust component about an axis 
through the center of the pitch circle and parallel to the y axis in 
Fig. 31 is: 


p ° 


if 


C/ry/3 CoS </> 


where C is the pitch cir. 


Giu»'.ot<cr 



30 , 


or 



+6 W ~ Cos vj '+(• Cos/C ’ tA Ccs -> : y **-/ {S/h/Sj r /? re/'//} Coss/Cs /^ 


\ +c{ /?: Cks <fj\{Cos/C^ r A 'CoS '/>) z 

In order that the bearing be in equilibria after displacement, the fol- 
lowing conditions must bo satisfied: 






\^jh/3 0 *A+ct'ftjGoS<$ *+(Cos/3 o +ACos '/>) Z ~ C ^ (<5/h /Q+A'+c? Cos </>) 

\/&*A /?<• Cos <,?) r(Cos/3 a /■/■; CoS 'Aj 2 


Sc. 170 



JjC/n/S+A '/e{'/? ( -Cos \>)^(Cos/3 o */<'C'os Z fCcs/3 a rk'cos (?) Cos</> y/1 

\j (S/n/3 o +/? 'tcf /tJ- Cos c/>) z +(Cos /3 0 + A 'Cos <p) z 


x/fyj- ^[(C/n/3 o +/}*-c''/ c ? < Cos 4s) z + (Cos/O^A 'CoS \>y *" -/ j (5/r;/3 0 +/? re? /R ( - C 

2 / ]/ (5/n/3 a +/7+c(W ( .Cos<p) z r(Cbs/2*A'€os <p) z 


^£i^±£vf£q. 


172 


where SH 8Ji^. \/ &r© i*©spGC v/ivoXy unc Xr^rusc "c c~d j. — l o O < ~o v> G T~1 

of the externally applied load and 27^ the mom ant of the external load, 
about the center of the pitch circle. The 5> In the right hand sides 
of the above equations indicates that the computations must be performed 
for each ball position in the bearing and the sum taken. 

The equations of equilibrium, Eqs. 170, 171, and 172, above, are statically 
indeterminate; that is, a direct solution for the displacements ir. terms 
of the externally applied load is not possible without further reduction 
of the equations. 
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B. Axial Equilibrium and Thrust - 

An angular contact ball bearing which is designed to 
carry lateral as well as thrust loads presents the problem 
of the interaction of the axial and lateral equilibrium and 
compatibility of the beam. The forced vibration analysis 
discussed in Section 6 obtained a lateral deflection and 
rotation at the bearing, based on the assumed lateral and 
moment springs used. H 0 wever, in order to calculate the 
non-linear lateral force and moment, the axial deformation 
of the bearing must be known. Such bearings normally are 
mounted in pairs, face to face or back to back. The 
determination of axial deformation and axial forces on the 
bearings depends on axial equilibrium and compatibility. 

Preload deflection will be discussed in the next 
sub-section. Preload determines the relative axial position 
of the two angular contact ball bearings before any other 
load is imposed upon the system. The assumption of axial 
compatibility is that this relative position of the two inner 
races with respect to each other does not change during 
subsequent loading of the system. In other words, the shaft 
moves axially as a rigid body. The resulting axial position 
will be that such that the axial forces on the two ball 
bearings when combined with any thrust load on the shaft 
satisfies axial equilibrium. As the shaft whirls at a 
particular frequency, the shaft does not move axially, and 
so no axial inertia terms need be considered. The thrust 
i must be a constant force with time, and not harmonic or any 

other time function in the steady state condition. 


H + H 2 4- THRUST 


O 
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For the first trial axial positions of the two ball 
bearings are assumed and input into the program. These would 
generally he-t-J and -£ respectively, for the two balls, where 
$ is the preload deflection of the bearing. The non-linear 
forces and moment are then determined based on the assumed 
axial displacement, and the slope and lateral displacement 
computed by the forced linear vibration analysis described in 
Section 5» In general, the axial forces thus determined when 
combined with any thrust will not satisfy axial equilibrium. 
Thus, new values of axial deformation must be assumed for the 
second trial, along with the new lateral and moment springs 
discussed in Section 6. 


r OJ-O 


S HlFT' 


The variable SHIFT is the estimated rigid body axial movement 
from the present axial position to the true axial position. 
For given values of rotation and lateral deflection for the 
two bearings, consider their respective axial load vs axial 
deformation curves: 



r t- 

H, + H x + THRUST - 


O 
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The problem then, is to determine the derivative of the axial 
force -deformation relation with respect to axial deformation, 
holding lateral deflection and rotation as constants. 


Consider Eqs. l6h and 170 of Jones on pp 29 and 30; 


H 

* Z Pi S,M <3,- 



<■*/ 


Per Eqs. 160 and 

162, 

? r* 

, 3A 

Pi - 

dkk * ai [_ C- 

- >] 

where , £■ . =. 

l) A; 1 + el 


A; = 

S//0 g c + DHP 

+ O/lt-P* o/?I+ CofjOj 
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S~a / &cL 


Dy /° = 

£ /? / 8cL 


DRcF = 
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dr r * 



where ^ , R L , and cp 

are defined by Jones on 

pages 18, 2h, 

and 25 respectively. 



Differentiating, 

DK s £ H _ 
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C. Preload Deflection 

The faces of the inner and outer races of angular 
contact ball bearings are specified to be ground flush when 
under a certain axial load (for example, 50 lbs). Thus, 
when the bearings are assembled on the shaft and contact is 
first established between the races and balls under zero 
axial load, there is some stickout gap. 



This stickout gap is closed by preloading the shaft, thus 
imparting to the bearing some initial axial displacement before 
any other loads are put on the shaft. Usually the preload force 
in the shaft far exceeds that required to close the stickout 
gap. Once it is closed, additional axial load is divided between 
the bearing (outer path) and the inner path. The final position 
of the preloaded bearing involves tne simultaneous solution of 
linear and non-linear equations which are not too difficult, but 
must be done to determine the initial axial displacement at which 
the bearing awaits the lateral loads on the beam. 
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9. OTHER NON-LINEAR SPRINGS 


Other non-linear springs (for example, roller bearings) 
can be included if the load-deflection curve can be expressed 
in the form, 


where A and B are constants to be inputted at the station 
at which the spring is to be located. The flag at that 
station must bo set equal to 2« 


Non-linear moment springs are not included, although ;to 
do so would not be difficult. A linear moment spring, however, 
may be input along with a non-linear lateral spring. 


If the P vs y curve is plotted on log-log paper, the 
slope of the best fitting straight line through the points 
is the constant B. The constant A can then be found by 
inserting a value of P and y from the curve. 


If the shaft is supported by two roller bearings, the 
shaft will whirl conically in contact with both bearings, 
talcing up any radial clearance in the bearing, and so the 
clearance should not be included in the load-deflection 
curve. Such a canted position of the elastically undeflected 
shaft does, however, generally contribute an added unbalance 
at the large masses (especially overhung rotors). If the 
shaft is supported by two preloaded angular contact bearings, 
the undeflected position of the shaft will be the centerline 
of ohose bearings. If an additional roller bearing is present, 
any clearance there must be accounted for in its load-deflection 
relation. Such clearances should be added to the deflections in 
the load-deflection relation before fitting the power curve. 


\n 
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10. GROUND EXCITATION 

The previous theory has been based on the assumption 
that the support to which the springs are connected is 
ground (i.e., that point has no deformation). In a shake 
test, however, the only load the beam sees is transmitted 
through the springs to the shaft by the harmonic occilations 
of the ground. This program permits the specification of the 
amplitude of the ground acceleration, and is assumed the same 
at all spring supports. It is assumed that the ground has no 
rotational acceleration (i.e., the moment springs are still 
attached to a face of zero rotation). 

The derivation of the terms required to account for this 
phenomenon are illustrated by a single mass-spring model. 


(Y? 


HI 


mx + k ( x - w ) = o 


let 


ii t* 


f\ /V 


OR. 


*. (-\rviuJ 2 '+ K)X ( 

( nauu^ - K) X c 


'i 

X = X o Cos co t 
y - y a co s oj 

— cO X 0 c o £ caJ t 

y ^ 1 

- K y, = o 

+ k. y 0 ^ <=> 


1 1 COS U/ t 


Now if the amplitude of the ground acceleration is specified 
as Ng (or N times the acceleration of gravity), 

n $ -- - toy, 

/• * - 


one 


Ui 
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Thus, at the station of each bearing. 


V = 6C y c + '/ 


This is straightforward for a forced vibration analysis based 
on linear springs. However, for non-linear springs, whereever 
the non-linear force was a function of the lateral displacement 
S K , it must be considered a function of 

- / 

V(l ~ & ft ~ Vo 
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Col. 71 - 7p 


Title inf ormation 

Comber of stations (right adjusted) 


Control card - 

Cel. 1 - 2 Number of frequencies (right adjusted) 

Col. 3 - lii Initial frequency (cps) 
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Col. 33 N - subscript of 2nd 2 ero variable at end of last bay 
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v/Ol. 1,1 S - subscript of 2nd non- zero variable at stare of let bov 


Col. 13 
Col. 17 
Col. 99 


~ subscript of 2nd non-zero variable at stare of 1st bay 
11 Maximum number of iterations allowed (right adjusted) 
53 Accuracy (decimal)- if left blank, set = .05 
70 Number of gravities acceleration of ground 


Basic Sta 

lion 

Data 

- Rape 

at sequence A, B, C for each station 

A. Col. 

1 - 

" Xu 

L(l) 

inches 

Col. 


- 11 

L(?) 

inches 

Col. 

p C m 

- 36 

EI(1) 

lb-inches" 

Col. 

_ }.£ 

O \ 
/ 

r\ 

lb— i' iches 

Col. 

1.0 . 

«-4^' 

- 

>. . V.< 

0(3) 

lb/inch 2 

Col. 

61 - 

7 O 

0(2) 

lb/irefc 2 

Col. 

7 1 - 

0 r' 
- f s 

Number of succeeding stations with tie sane 


dcitci. cto 


those) 


Col. 1 - 

12 

c(l) 

1/ inch 

Col. 17 - 

?h 

0(2) 

1/ inch 

/Vp op _ 

% 

K T ' •'!! 

v • ‘ ' 

L) inch 

c«*i. y - 

' lb 

T / V > 

- 

to' . ];? - 

(-.<} 

W 

11 . 

• a.:. f\ - 

nn 

\ •*/ 

'b/b 


• li-v.J’ O J gi ’ * C ' 1 3 ( -d L T l t»C * J- 1 


i U 1 l 


_ C* j . • 


1 


• 7 * ! 
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WORK ORDER 
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data as 

Col. 1-72. ( omit line B for those) 

c. 

Col. 1-12 

DPBAR 

lb 


Col. 13 - 21; 

DMBAR 

in-*lb 


Col. 25 - 36 

A 



Col. 37 - bfi 

B 



Col. 1-9 - 60 

GAIiKA 

lb-::-sec c 


Col. 6l - 72 

FLAG 

1. Angular Contact Ba.ll Bearing 




2. Spring of form P = A y L ‘ 


Col. 714 - 75 

Number of succeeding stations with the sane 



data as 

Col. 1-72. (omit line C for those) 

Ball 

Bearing Input Data - Repeat A and B for each ball bearing. 

A. 

Col. 1 - 12 

HBALL 

Number of balls 


Col. 13 - ? }. s 

BIAM 

Diameter of ball (inch) 


Col. 25 - 36 

DFO 

Ratio cf radius of curvature of outer 




race to ball diameter 


Col. 37 - 1; 8 

DFI 

Ratio of radius of curvature of inner 




race to ball diameter 


Col. 19 - 60 

DE 

Pitch circle diameter (in) 


Col. 6l - 72 

D3ETA 

Initial unmounted contact angle ( degre 

B. 

Col. 1-12 

DICK 

Elastic coefficient computed by IBM 




Job ^7 Jr. (Ref: pp 15 and 22) 


Col. 13 - 2b 

DHH 

Initial axial deflection of bearing 




due to preload (in). 

Thrust Input - Only 

if shaft 

supported by angular contact teariigs. 

Col. 

1 - 12 TO 

lb 

THRUST • TO + DT co ^ 

Col. 

13 - 2b DT 

O 

lb-" sec' - 



CONVERSION TO FREE VIBRATION INPUT i'OR JOB HOOT 

1. Change NOMO to number of natural frenuene ten desired 

2. Iri Col. 29 insert the number 1 for deflection and 2 for slope 
normali/aation iti mode shape detain. ir Hiiur,. (control card) 

3. Omit cards 1.13 .C., TV., and V. 
b. Run under- Job il;009 




































AEROJET-GENERAL CORPORATION 

J OTWCRAl^ SACtAMCNIO • C A U f O * N J A 


DATE o/g/X 

LATERAL VIBRATION ANALYSIS OF A HARMONICALLY FORCED , UNDAMPED, '•'* 

LUMPED PARAMETER BEAM SYS'iSM SUPPORTED BY NON-LINEAR SPRINGS WORK ORDER 


G.L. Goudreau 


13. OUTPUT INFORMATION 

I. Input data - program dumps control and station data, ball bearing 
data, and thrust. 


II. Spring data - At each station where there is a spring, the 
program prints out the station number, lateral spring value, 
elastic spring force, associated non-linear force if any, 
per cent difference if non-linear, moment spring value, elastic 
spring moment, associated non-linear moment if any, and per 
cent difference if ncn-linear. 


III. Frequency and Determinant - For each iteration the program, 
prints out the frequency .in cps and rpm, the determinant of 
the set of two simultaneous equations solved in the forced 
vibration solution, and the value YO which is the lateral 
deformation of the ground, if any. A change in sign of the 
determinant through a frequency sequence indicates passing 
through a natural frequency or critical speed. 

IV. Staoe Vector - When the non-linear iteration has converged 
(trivially the first time if all springs linear), the program 
outputs the shear, moment, slope, and deflection at each 
station. 


V. Ball bearing data - If angular contact ball bearings are 
encountered, then immediately following II. for each 
iteration the program outputs 

TH1, TH2 - the axial force on the 1st. and 2nd ball bearings 
DHl, DH2 - the axial displacement of the 1st and 2nd " 

DK1, DK2 - the axial derivative of the 1st and 2nd " 

THRUST - the value of the thrust load 

POT 3 - the percent error in the axial equilibrium eq. 

SHIFT - the projected rigid body axial shift for the 

next iterati on 


\n 
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When the non-linear iteration has converged, the program 
outputs a discription of the internal setup of the ball 
bearing, namely the circumferential position of each 
ball, its final contact ang^e, and its compressive force 
in lbs if any. 










APPENDIX H 

PROGRAM E13112 LISTING 

c 



' f ' .V:. f C^ov^Tr/ioo ' list 

19 .RUN -TEEf 428999, 2 <200 .. | LIST E131 12^ 

Q"cTL'uM=Ei3il2 ‘ ~ ’ 


Q." ASG X=AN4153 
AN41 53. .ASSIGNED, UN II 3_ 


HDG 


1 


DATE 25 APR 72 PAGE 
25 _APS 72 14:_42.:32.146. 


25 APR 

72 

14:42:32.146 


25 APR 

72 

14:42:32.217 



25 APR 72 14 : 42:32. 227 


PEF X 


END OF FILE — UNIT X 


25 APR 72 14!42:32.229 


14:42:3? 


14:42133 


14:42:33 



3 


ELI DATA . 1 . 710426 ? 41293 


000001 

ARES AXIAL 

FLOW TURBINE 

DESIGN 3 11-24-65 40 MM BEARING 

26 


000002 

30 600.0 

20.0 

1 2 3 4 3 0 




000003 

0.375 

0.375 

2.73E+06 2.73F+06 

11.5E+06 

11.5E+06 


300004 

1 » 55 

1.55 

53.0E-06 

0.259 



0 0 0 0 C 5 




0.620E-06 



C 0 0 0 6 

0.425 

0.425 

7.45E+06 7o 4 SE+O i 

11.5E+C& 

11.5E+06 


000007 

0.853 

0.853 

— 1 1300 o 0E~0‘> 

0.898 



000008 




1 . 970E-06 



000009 

0.440 

0.440 

7.45E+06 7.45F+06 

-11.5E+06 

11.5E+06 


000010 

0.853 

0.853 

- 1300 , OE-08 

0.910 


1 

000011 




i . 805E-06 



0 C 0 0 1 £ 

0.315 

0.315 

6.56E+06 6.56EvfUi 

U.5E+06 

11.5E+06 


OGOOib 

3.38 

3.38 

78.4E-06 

0.230 


• 

000014 




0 , 394E-06 



000015 

0.400 

0.400 

9.21E>06 9.21E+06 

11.5E+06 

11.5E+06 


000016 

2.56 

2.56 

- 3930.0E-06 

1.25 



000017 




2.015E-06 



000010 

0.280 

0.280 . 

19.41E+06 19.41E+06 

11.5E+06 

11.5E+06 


000019 . 

0.502 

0,502 

- 236.0E-06 

0 • 435 



000020 




0.627E-06 



000021 

0.160 

0.160 

16.30E+06 l'6.30E+0(> 

11.5E+06 

11.5E+06 


000022 

0.916 

0.916 

- 138 . OE-Oti 

0.191 



000023 




0.255E-06 



000024 







00002b 







0C0026 



3.830E+07 1.45 


2.0 


000027 

0.575 

0.575 

16.30E+06 16.30E+06 

11.5E+06 

11.5E+06 


000026 

0«9I6 

0.916 

— 315* OE-Oo 

0.687 



000029 




0 . 813E-06 



000030 

0.437 

0.438 

32.30E+06 32.30E+06 

11.5E+06 

11.5E+06 

. 

000031 

0.852 

0.852 

- 601.0E-06 

0.553 



000032 




. 499E-06 



000033 

0.437 

0,438 

40«00FC't w 06 40 o OOE+Or* 

il.5E-^06 

11.5E+06 


000034 

0.720 

C.720 

- 764 « 0E-06 

0.654 



OC 0 035 




0 ft 442E— 06 



GO Of; 36 

0.565 

0.565 

48.50E+06 48.50E+06 

11.5E+06 

11.5E+06 


U0GU37 

0.620 

0.620 

~ noo.oE-oe. 

0.968 



0000153 




0 . 415E-06 



CC0C39 

0.375 

0.375 

48.50E+-06 48.5OE+0f 

11.5E+06 

11.5E+06 


CO 00 70 

0.620 

0.620 

- 6800 . 0E-06 

1.873 



0 U 0 0 4 1 




0 . 356E-06 



C 0 0042 

0.390 

0.390 

48.50E+05 48.5OE+06 

11.5E+06 

11.5E+06 


G 00 04 2 

0.620 

C o 620 

- 6800 . 0E-06 

1.932 



GO 0044 







CO 0045 

0.805 

0.805 

13.35E+06 13.35E+0? 

11.5E+06 

11.5E+06 


0 GOO 46 

1.04 

1.04 

80 . OE-QC 

0 . 782 



U 00047 




-0.239E-06 



000048 

0.625 

0,625 

13. 35E+06 13.35E+0C 

U.5E+06 

11.5E+06 

- 

0 0 0 0 9 

1.04 

1.04 

- 221 . OE-Of 

0.640 



ODOObC 




-0.425E-06 


; 

0 00 Oil 

0.550 

0.550 

13.35E+06 I3.35E+0C 

11.5E+06 

11.5E+06 

■ 

OCT 052 

i. p o 4 

1,04 

- 1400.0E-Of: 

0.800 



0 09 05 5 




-0 . 625F-06 



000054 

0.400 

0.400 

13.35E+06 13.35E+06 

11 .58+06 

11.5E+06 


0 oDObb 

1.04 

1,04 

- 223.0E-06 

0.410 



0 00 050 




-0 . 4Q9E-06 





4 


j o 0 Od7 







OOOC55 







000059 



3 . 830E+07 

1.45 


2.0 

000060 

0.150 

0.150 

13.35E+06 

13 . 35E+0 5 

11.5E+06 

11.5E+06 

0 0 0 0 6 1 

1.04 

1.04 

- 

110.0E-0S 

0.195 


000062 





-0.259E-06 


0 CO 063 

0.615 

0 .615 

14.70E+06 

14.70E+03 

11.5E+06 

11.5E+06 

00000.4 

0 . 545 

0.545 


3200.0E-0S 

1.282 


CC‘0065 





-1.950E-06 


000C66 

0.240 

0.240 

1.J7E+06 

1.J77E+0 5 

U.5E406 

11.5E+06 

000067 

2.26 

2.26 

- 

29.5E-05 

0.117 


000066 





-0.204E-06 


000069 

0.45 

0.45 

2.36E+06 

2.36E+0 j 

. _11.5E+06_ 

U...5E+06. 

G C 0070 

2.21 

2.21 


537.0E-05 

0.414 


0 0 0 0 7 1 





-0 . 787E-06 


Ot* 0 0 7?. 

0.35 

0 o 35 

2.36E-t-06 

2.36E+0S 

11.5E+06 

11.5E+06 

0QU073 

2.21 

2.21 

- 

525.0E-05 

0.334 


000074 





-0 . 703E-06 


000075 

. _ 0 . 225 

_ „Q .225 

3 . 03E+06 

3 . 03E+.0.5 

. 11.5E+06 

.. 11...5E.+ 06 

G 0 0076 

1.45 

1 #45 


39.7E-0S 

0.158 


000077 





-0 . 555E-06 


000078 

0.20 

0 { 2.Q 

O.fiOP+Ofi 

.. 0.50E+0 5.. 

_ 11.5E+06 

11.5E+D6. 

000079 

2.97 

2.97 


7.1E-0S 

0.069 


000080 





-0.163E-06 




Q E L T M A IN pi? 710420? &2022 


000001 
C 0 0 0 0 2 
0 0 0 0 0 3 _ 
000004 
000005 
000006 
000007 
1)00008 
000009 
SiOOOiO 
000011 
000012 
000013 
000014 
000015 
U00016 
:: Goon 
000018 
3 C D 0 1 S " 
030020 
000021 _ 
000022 
0 CO 023 
OOC024 
JC0C25 
0 C 0 0 2 6 
000027. 
0o002S 
00 0029 
000030 
000031 " 
000032 
3 COO 33 _ 

000054 
000035 
00 0C3C. 

0 U G 0 3 7 
000058 
.0:10039. 
0 1 1 0 0 4 0 
C0CO41 
C (30042 
0 00 043 
000044 
000045 
7 .'004o 
C 00047 
3 40 048 
000049 
0(10050 
000051 
000052 
C 0 0 0 5 3 
0 0 0054 
UGJC55 
000056 


E13U2 

E13112. 

E13112 


PROGRAM E13112 PLACED ON PRODUCTION APRIL 1p1970 BY F 

IMPLICIT REALMS _ _( A -ftp 0- Z) 

DIMENSION TITLE! 12) 

JOB 14036 VIBRATION ANALYSIS 


YEE 


oooooooo 
00000010 
00000020 
00000030 

.. ... 00000040. 

DIMENSION DL1 ( 50 ) p DL2 ( 50 ) pDEII (50) »DEI2<5(') pDG1(50) ?DG2(50) > DC 1 ( 500000 0050 
1) pDC2(50) >DIJ(50) p OWN (50) ?DXN(50) t E1MTRX(5?5) p E2MTRX ( 5 » 5 ) > 00000060 
2AMATRX ( 5 p 5 ) pSMATRX(5p 5) pCM ATRX(5p5) pFMATRX (5p5) pDLMTRX ( 5» 1 ) p SHMTRX00000Q70 


p DGAMX ( 50 ) 


(50). 

(50) 


3 ( 5 p 1 ) 

COMMON 

__1 DL1 _( 50 > p DL2 

2"' OCl (50) ?DC2 

3 E1MTRX (5p5) 

4 BMATRX < 5 ? 5 ) 

“5" DLMTRX ( 5 p 1 ) 

6 OMGSO 

dimension "and common 


pDEI1_(50).pDEI2 (5(1) 
pDXJ (50 ) p DGAMX (50) 
pE2MTRX ( S p 5 ) 

pCMATRX ( 5p 5) 

pSHMTPX ( 5 p 1 ) 


pDGi (50) p DG2 ( 50) t 

pDWN (50) pDKN (50) p 
pAMATRX (5>5) p 

pFMATRX (5p 51 p 

p SUMG p 


00000080 

00000090 

00000100 . 

00000110 

00000120 

000(30130 

00000140 

00000150 


*******************<***** ***** ******** *j* ****00000160 

STATEMENTS ADDED" FOR "NON-lINcAR SPRINGS 1/7 00000170 

C ******* ** ******************************* ******* ******************** *****00000 180 
DIMENSION NRE?(3) pDETMSO) pDBETA(50) pOANI >’50) pDBNI (50) p DPMI (501?. . 000001°0. 

V IDP ( 3 ) pPO ( 50) pPI (50) p P2 ( 50 ) pP3 ( 50 ) ? QO00 !r L ( 4 » 50 ) 00000200 

COMMON DETApDRETApDANIpDBNIpDPNIpIDP 00000210 

C * * * * * * * * * * * * * v * * * st * * * * * * ** *** *** *»* ****** ***** * * * * * * * *_* ** ****** * * * 0 0 0 0 0 2 2 0 

"C PROGRAM STARTS" HERE ’ " - - • 00000230 

C*** ********** t*********** ****** *************** * ********************** **00000240 

DO 999 ' 00000250 

999 NREP (II) £ 0 ----- - 00000260 

C ****** ***************** ******* *************** *************************0 00 0 0270 

C INPUT HEADER AND NUMBER OF.STATIONS 00000280 

C ********** * ************* *********************** ********** ******** ****** o 0 0 0 0 2 9 0 
30 READ (5 p 1 1 1 p END=444 ) TITLE; NSTA p (IDP(II)pII = 1p3) 00000300 

J.11 .FORMAT, U 1 A6 p A.4 p 5.12 ) _ 0000031 0 

C ************ *************** ******************* *************************00000320 
C PRINT TITLE 00000330 

C * * * * * ******** * * * * * * ****** ****** * **** * *** ** * * * * ******** * * * * * * * * * * * * *****00000340 
WRITE ” (6p 13.' 00000350 

13 FORMAT ( 74H1 JOB 14036 00000360 

1VIBP.ATION. ANALYSIS///) 00000370. 

C ********* 4 *************************************************************00000380 
C INPUT NUMBER OF ROOTS DESIRED? TRIAL ROOT? STEP SIZEp AND R.P.M. 00000390 

C ******* *********************************** ***************************** 00000400 

READ ( " '5 Tl 2 ) NOMODE t TROMSA » DELOMO t KKp KMpKN p KR » KS p NTRI AL p ACCUR 00000410 

12 F0RMAT(I2p2E12o7p6I3p2XpE12.6) 00000420 

IF (KK) 114 p 113? 114 00000430 

113 N7RIAL £ l" 00000440 

C***** ************************** **************************************** 00000450 
C PRINT HEADER AND NUMBER OF STATIONS 00000460 

’ c ******************* ********** ************* **** ************************* 00 000470 

114 WRITE ( 6p 112 ) TITLEpNSTA 00000480 

112 FORMAT (1H1? IPX? 11A6pA4p IOXp I2p2XBHSTATIC NS ) 00000490 

00000500 


IF ( ACCUR > 116? 115? 116 


115 ACCUR 


>0500 


00000510 



GU0057 
000068 
000059 
000060 _ 
000061 
00GC62 
000063 
000064 
000065 
0 G 0066 
000067 ' 
000066 
000069_ 
000070 
000071 
000072 
200073 
000074 
000075 
000075 
000077 
000073 
000079 
000080 
00 0081 
000032 
000033 
MIC 84 
000005 
0 0 0086 
CC0087 

' oo ores’ 

000 069 
000090 
000091 
000092 
050093 
000094 
000093 
000096 
000097 ‘ 
00 0.093 
000099 
000100 
000301 
000102 
000103 
COO 104 
0 C 0 1 0 5 
000.106 
0 0 0107 
000106 
0003.09 
000110 
0 r, 0 3 3. 1 
0 0 0 3. 1 2 
040113 

•• 1 1 4 

•. 1 1 .. 


. 00000520 .. 

00000530 

00000540 

00000550 

00000560 

00000570 

0000058,0 


116 WRITE (. 6 . . 1 5>NOMODE*TROMGA»OELOMS. A.CCtl? 

15 FORMAT (23H0NUMBER OF ITERATIONS =.I4.20H STARTING OMEGA = ► 

IF 12 . 4 ' 17H DELTA OMEGA = r F 12 . 4* 5X7HACCU7 = F12.4) 

WRITE ( 6 *18)KR»KSrKM»KNnMTRlAL 

18 FORMAT (34HOROW NUMBERS OF SELECTED SUBMAT RI X » 1 4 » 4H AND » I U t 
139H COLUMN NUMBERS OF SELECTED SUBMATRI X » 14 • 4H AND 1 14 » 

2 4X8HNTRIAL = _ 12) ; 

C************* ********************************* *4 ********* **************00000590 
C INPUT REMAINING DATA 00000600 

C**» » * * * * * * >'• * * * * * * * ■; * * * »»* * *** * ** * **** * ***** *** *_* **** **j** * * * * ** * * *_* ** * **00000610 _ 
DO 50 Nr.i»NSTA ”""" ' ' ‘ " 00000620 

CALL REPEAT ( DLl(N-l). DL1(M)» DL2(N-1)» DL2 (N) * DEX1(N-1)» 00000630 

1 DEI 1 (N) » 0EI2(N-1)»_DEI2( N) »_ DG1 (N-1J » DG1 < N ) > DG2 ( N-l ) * 00000640_ 

2 DG2 { N ) , NREP(i) ) “ ’ ’00000650 

CALL REPEAT ( DC1 (N-1 ) . DC1 (N ) » DC2 (N-l 3 » DC2 (N) » DX J < N-l ) #DI J ( N) * 00000660 

_l _DGAMX(N-1) *DGAMX(N) »nWN<N--l) »CWN(N) >D<N(N-1) *DKN(N) »NREP(8> 2 00000670 _ 

'50 CALL REPEAT ( DETA (N-i ) *OETA (N) »DBFtA (N-l )' »DBETA (N) »DAN1 (N-l ) t~ 00000680 
1 DAN! (N) j DBN1 ( N-l ) *DBN1 (N) » DPMI (N-l) #0 :5 N1 (M) , SUMG> SUMGpNREP ( 3) ) 00000690 

C***»**************»»*:»*****«**a*****»***»******* #** »*»*»»*»******»***;»*0fl000700 

C PRINT STATION DATA” ' ’ * * ” ' 00G00710~ 

C#*****-;' ********************** ******************************************00000720 

___ WRITE. .(......6 iZO) 00000730 _ 

20 FCRMAT(121H0 L ( 1 ) L(2) EI00000740 

1(1) El ( 2 ) S(l) G ( 2 ) 00000750 

2). 00000760. _ 


WRITE ( 6 »6) 

6 FORMAT (1H ) 

_LCTR = 0 

DO 57 NslfNSTA 
LCTR = LCTR + 1 

WRITE ( fe t 22 ) OL1 (M) ?DL2 (N) » D E I 1 ( N ) > DE I 2 (N) > D G1 (N) > DG2 (N) 

22 FORMAT < 6 I6H E15»e)) 

IF (LCTR-5) 57 » 158 e 57 

. 1.5 3_ LCTR = _0 

WRITE ( 6 ?6) 

57 CONTINUE 

WRITE J 6 __ <21 ) 

21 FORMAT (122H0 C(l)' C(2>' 

1)“I(X) GAMMA W SUB N K 

2N> _ 

' 'WRITE 6 . 6 ) ' 

LCTR = 0 

DO 121 NrloNSTA 


LCTR = LCTR 1 
WRITE < 6 

_ IF (LCTR-5)_ 

122 LCTR = 0 
WRITE ( 6 

121 CONTINUE. 

C* *****************************. ********* ********************************00001010 
C PRINT ALL CARD NUMBER THREES. 00001020 

C ***************** **** *** ************ **** **** ******** ****** ***** ** ******000 01030 


>22)DC1 (W) pDC2(N) fDIJ(N) >DGAMX(N) >DWN(N) *DKN(N) 
12 1 1 1 2 2 #_1. 2 1 

1 6 ! 


00000770 

00000780 

000007°0. 

00O00800 

OOOOOBIO 

00000820 

00000030 

00000040 

00000850 

00000860 

00000870 

00000880 _ 

I ( J00000890 
SUB 00000900 
__ 00000910 
00000920 
00000930 
00000940 
00000950 
00000960 

00000970 

00000980 

00000990 

oooniooo 


WRITE (6 » 23) 

23 FORMAT (122H0 

1 SUB N . _ 

2 ) 

WRITE (6.6) 

LCTR =0 

00 123 N = 1 » NST A 
LCTh = LCTR -> l 


ETA 

. B..SUB_N._ 


BETA 

_SU0_N._ . 


00001040 

00001050 

00001060 

00001070 

00001080 

oonotooo 

OOOOl 1 00 

onnm 1 1 o 



;::m: ii7 
: r . Oils 
u uCU9 
000120 
000X21 
00012.2 
000123 
CO J124 
CO 0.12b 
000126 
000127 
000128 
C00129_ 
000130 
000131 
C 00. 132 
000133 
000134 
000135 
000136 
0C02 37 
0C013E 
001' 39 
000140 
000141 
'000142 ' 
0 J 0 1 4 3 
000144 
C0C145 
CC 0146 

000 147 
"00 0148" 

000149 
f 00150 

0001 SI 
000152 
000153_ 

000155 

000136 

0 0 0.1 5 7* 
COO 158 

0001 59 
0 0 C .60 
0 00161 
uk.‘C i 6 2 

000163 
000164 
000166 
0 GO 156' 
000 3. 6 7 
C 003 56 
0 00169 
000170 
000-71 


WRITE (6*22) DETA(N) rDBEJA(N) .DANljN) » D 9.N 1 3 j-l )_. D P N 1 l£J ) _ 
IF ( LCTR-5 ) 123.124.123 

124 LCTR = 0 

WRITE (6.6) __ 

.123 CONTINUE 


00001120 
00001130 
00001140 

00001150 

00001160 

C 00001170 

i .- t ? * if V * *****_*-. ^* * 0 0 0 0 1180 

7M00E = TR0,YGA*6.2821854DG """ ’’ " " 00001190 

DELMOD = DELCMG*6.2821854D0 00001200 

C>f **•*#<- *** «=**.,'• SUnfv.i} **»*:»&»*-- *:»:» »»:E***»*»**>t<*»fr*S»**0000 121 0 

C INITIALIZE El V E2. AND F MATRICES ~ " """ 00001220 

C##*## ***#*###£*#**#&#*:<<$* + ********=*#** + ********'-. :*#$£*£**************$>(!#00001230 
DO _ 5 1 _ JE .= 1 .5 00001240 


DO 51 J=1 > 5 
IF ( I-J) 55 ? 56 p 55 

56 E i MTRX ( I » J ) = 1_, 0 D 0 

E2M7RX ( i”. J)- 1 .ODO 
FMATRXd . J) =1,000 

_ GO '>'0 51 

55 E1MTRX ( I ► J) =6 . ODO 
E2MTRX(I , J)=O.ODO 

FMATRX ( I » J) =0. CIDC 

51 CONTINUE 

OMGWRK = TMODE - DELMOD 

DELOMG = DELMOD 

'DO 95 MM=i ? NOMODE 

OMGWRK = OMGWRK + DELOMG 

_ OMGSQ = 0 M G W R K # 0 M G W R K 

'SUMS = 0MGS0/386* 0400 
IF ( KK ) 4301 * 4300 » 4 301 

4301 IF ( MM— 4 ) 4302. 4302 »43_4_ 

”4302 60 Td" (4 30 .431. 432 » 433 ) .MM 


CC :. 


/O 

7 4 

. 

7 . 


00001250 
00001260 

00001270 

"'" " ~ 00001280 

00001290 

00001300 

00001310 
00001320 

00001330 

00001340 
00001350 

___ 00001360 

00001370 
00001380 

___ 00001390 

00001400 
00001410 

00001420 

00001430 

C$*tf ****** ***••!( *!>■*:(: *************** 0000 144 0 

430 DC 340 N = l.NSTA ; 00002 450 

340 PO ( N ) = DPN1 (N) ’ ~ 00001460 

GO TO 4300 00001470 

_Cy * * ••? # v >>*«::•--+ -y <<--y ?. t.< •* * ♦»» »»» »»»* < * *#* Y * * * **<•- ** *** **00001480 

43 1" CO 34 1 " N = l.NSTA " " " " 00001490 

341 P1(N) = a 5D0 » (PO(N)vDPMl(N) ) 00001500 

GO TO 43G0_ 00001510 

Cv**** *************>::****************************<• ************>:<********#<<O0PO152O 
432 DO 342 N = l.NSTA 00001530 

342 _P2(N> =...5D0 _* _<PO<N)+DPNJL(N) ) 00001540 

GO TO 4300 00001550 

**’ * ■,-.*.;:***-,••** tf******#**:;:#***#**#**** **•****<• ***<<*****fc**<<*>!:****#***0 000 1560 

_433_ DO 343 N = l.NSTA _ 00001570. 

P3 < is' ) = o 5D0 * (POINJ+DPNKN) ) 00001580 

P 0 ( N ) =3. ODO * (P3(N)-P2 (M) ) +P1 (N) 00001590 

343 DPN1(NJ= P0(N) 00001600 

GO TO 4300 00001610 

C«*****V ****************** *********************** ***********************00 00 1620 

_ 434_ D° 344_ N- 1,-NSTA 00001630 

Pi ( N ) ="P2(N) ~ * "00001640 

P2<N! = P3(N) 00001650 

P3(N)_= .500 * (P0(N)+DPN1 (N) ) 00001660 

PC (N) =3.000 V (P3 !f\l) ~P2 (N)>+Pl(N) 00001670 

344 DPNi(l'J) = P 0 ( N ) 00001680 

C LOOP FOR BETTER K C X ) S DURING EACH STATE" VECTOR LOOP. 1ST PASS OK 00001700' 



oi 77 
0.C17S 
0001 79 
C JO 180 
000181 
000182 
000183 
000134 
000135 
0 0 u X 86 
COG 187 
000 IBS 
OQu 189 . 
0 0 0.190 
000191 
000192 
0 30193 “ 
C 00194 
000195 
030196 
000197 
COiUOB 
CO 0.199 
000200 
.000201 . 
0 9 or 02 
030803 
oo or 04 
000205 
000706 
000 70 7 

C i 2 0 

00;>209 

0 0 0 2 i 0 
000f.ll 
J0G212 
0 0 0 713 
0 0021 '4 
000215 
000216 
000217 

00021 a 
000719 
0 0 o < 2 0 
0 !; C ’21 
0 00 222 
000223 
•j 33124 
,000225 
*. Go 226 
7 

uOO< 2o 
015229 
000230 
0 007.31 
C 00232 
000233 
03. 8 34 
009836 
ul‘.;230 


4 300 
4305 


l.NTRIAL 


54 

53 

58 


73 


f;CF = 1 

DO 600 JERRY = 

DO 58 1 = 1 * 5 

DO 53 J=1 . 5 

IF(I-J) 53.54.53 
CMATRX(I, J)=l. 000 

GO TO 56 _ ____ 

CMATRX £ I » J) =0 . 0D0 
CONTINUE 

_ D0_fo9 N=1?NSTA 

IF £ KK ) 1? 1?2 

> IF (DPMKN)) 4 » 1 ? 4 

_4 PO ( fi ) = . 5D0 _* ( PO ( N ) +0PN1 ( Mi .)_ 

DKN(N) = DAN1(N>*P0(N)**DBN1<N) 

1 CALL MATELM (N) 

CALL MATMPY ( E1MTRX { 1 . 1 )_» CMATRX ( 1.1 ) , AMATRX (_1 * IU 5' 5. 5. 5. 5) 
CALL KATMPY (E2MTRX £ 1 ? 1 > .FMATRX £ 1*1) .BMATRX(l.l) ?5?5?5.5»5> 
CALL KATMPY (BMATRX ( 1 > 1 ) . AMATRX ( 1.1) * CMATRX ( 1 ? 1 ) * 5 * 5 . 5. 5* 5) 

_.€>9_C0NTJNUE 

DETNOVJ = CMATRX (KM »!<R ) ^CMATRX (KN» XS ) - 
Of-iGPRT = OMGWRK / 6*282185400 
_GO TO (71»73f71*71). »NCF 

71 IF (JERRY-NTRIAL) 72.73.73 

72 IF ( IDP (2) ) 74 . 74 . 73 

WRITE (.6 f 9.). OMGPRT . DE.TN.OM 

9 FORMAT £35H0 


1E15.C) 

74_ DLMTRX (!.!)_= 0.0D0 
DLMTRX (2.1) = 0.000 
DLMTRX ( 3? 1 ) = 0.000 

DLMTRX < 4 j 1 ) = 0.000 

DLMTRX (5d) = 1.000 


DLMTRX (KR.l) = ( -CMATRX ( KM. 5 ) *CMATRX (KN.KS ) +CMATRX ( KM.KS) * 

1CMATRX£KN»5> )/DETNOW 

DLMTRX ( KS ? 1 > = ( -CMATR X < KM » KR ) ^CMATRX ( KN . 5 ) +CMATRX ( KM 
iCMATRX(Xfl?KR) )/DETNO'..’ 

GO TO £ 75 ? 77 . 75 . 75) ?NCF 

75 IF ( JERRY-NTRIAL) 76? 77? 77 


_00001720 
00001730 
00001740 
00001750 
00001760 
00001770 
00001780 
00001700 
00001800 
.,.00001810 
00001820 
00001830 
.00001840 
00001850 
00001860 
.00001870 
00001680 
00001890 

00001900 

CMATRX £ KM ?K5) *CMATRX(KN»KR) 00001910 

00001980 

00001930 

00001940 

00001950 

00001Q60 

OMEGA = E15.8» 12H DETERM = 00001970 

00001980 

00001990 

00002000 
00002010 
00002020 
00002030 
00002040 
00002050_ 
00002060 
00002070 


1? 5) * 


76 IF ( IDP £ 2> ) 

21 WRITE ( 6 __ 

11 FORMAT (110H 


73? 

?11) 


73? 77 


WRITE. £_6 ? 61. 

WRITE ( 6 
10 FORMAT (15H 

1.. . _ E 1.5.8 .1,4(4 

78 WRITE £ 6 >6) 

LCTR = 0 
DO 995 N= 1 » MSTA 


PHI 


Y) 


_ 00002080 
00002090 
00002100 
_ 00002110 
00002120 
00002130 
00002140 


? 1 0 ) DLMTRX ( 1 ? 1 ) ? DLMTRX ( 2 ? 1 ) .0 _MTRX ( 3 ? i ) ? DLMTRX (4? 1 ) 00002150 


E 15 • 8 ? 14H 

_El.5_._8i. 


E15.8? 14H 


= LCTR + 1 
MATELM <N> 

MATMPY ( E2MTRX ( 1 .? 1 ) . FMATRX ( 1>.1 ),._AMATP (£.1 »_1 )_? 5 ? 5 ? 5.? 5 .51, 

/ 1 .1 .rlYTOYfl .1 \ .QUATOYfl .1 * .tr.cr.E.c.tr* 


79 

80 


82 

83 


LCTR 
CALL 

CALL . _ .... ... _ 

CALL MATMPY ( AMATRX ( 1 > 1) . ElMTRX(l.l) , BMATRX ( 1 > 1 ) .5.5.5. 5? 5) 
CALL MATMPY (BMATRX (1 ?1> ? DLMTRX <1 .1) . SHMTRX £ 1 » 1 ) . 5 « 5 ? 5 . 5 . 1 ) 

GO. TO. (79.82.79.79). .NCF 

IF (JERRY-NTRIAL) 80?82?82 
IF ( JDP ( 2 ) ) 83.83.82 

WRITE < 6 . 10 ) SHMTRX ( 1 . 1 > ? SHMTRX ( 2 »_1,.> ..SHMTRX (3.1). 

DLMTRX (1.11 = SHMTRX (1.1) 

DLM 1 r( X £ 2 . 1 ) = SHMTRX (2,1) 


00002.160 
00002170 
00002180 
00002190 
,00002200 
00002210 
0000222.0 
_00002?30. 
00002240 
00002250 
00002260. 
00002270 
00002280 
SHMTRX < 4.tl ) 00002290 
00002300 
00002310 



M w ;-:37 
'.,1333 
- ;ut39 

000*41 
GC6242 
. 000243 
00C244 
0CC245 
000246 
000247 
000243 
_0C 0249 . 
000250 
00 0251 
(; 00252 
CO 0233 ’ 
CO 0254 
000255 
000256 
C 00257 
0 0025.°. 
000259 
00 C 260 
000261 
t 00 2 62 
U 0 0 263 
0 01,264 
000265 
COO 266 
0 T;)'’67 
005258 
DC02S9 
000270 
0 0 0271 ' 
OOC272 


_ DLMTR X ( 3 * 1 )_. = SHVTRX ( 3 > 1 ) 


00002320 


DLMTRX (4tl) = SHHTRX ( 4 # 1 ) 
O000FL ( 4 «N) =SKMTRX ( 4 > 1 ) 

IF(LCTR-5i 995j_94 »_94 

94 LCTR = 0 

WRITF. (6»6) 

995 CONTINUE _ 

IF (IDPI2) ) 85 » 65 » 64 

84 I DP ( 2 ) = IDP ( 2 5 -1 


C0002330 

00002340 

00002350 

00002360 

00002370 

00002380 

00002390 

00002400 


85 WRITE . ( . 6 _ *6) 00002410 

IF ( KK > 598*95 »598 00002420 

598 60 TO (201»202»201»20l) »NCF 00002430 

. 201 NCF. z_2 00002440 

SO TO 599 00002450 

202 NCF = 4 00002460 

599 WRITE ( 6*4018) 00002470 

4018 FORMAT < irlb ? 32X5HSTA Xs>6X7,!K SUB X » l.OXRHP" SUB 0X»12X7HP SUB X » * 00002480 

1 18X3HPCT* 6X3NNCF) 00002490 

00_590__ N__=_1»N5TA _ 00002.500. 

IF ( DPNMN) ) 601 > 590 ? 601 00002510 

601 DPN1(M> = DKN (N)*DABS( G000FL (4 » N ) ) 00002520 

PCTC =0 ABS (DABS < PO (N l./DPN 1 <JI ).)_=j.„._COQ) 00002530. 

IF ( PCTC - ACCUR ) 204 > 203 » 203 00002540 

203 NCF = 3 00002550 

204 PCTC = PCTC * 100 • 0D0 _ 00002550 

WRITE ( 6 * 4019 ) N > OKU (N>* P0(N) » DPN l ( N ' » F’CTC » NC F " * 00002570 

4 C i 0 FORMAT (1H f 33XI2»3(5X,E15.8) . 9XF8.3»5x::i ) 00002580 

590_ CONTINUE ; 00002590 

60 TO <500» 4305*600*95) *NCF 00002600 

600 CONTINUE 00002610 

___ 95 CONTINUE 00002620 

WRITE ( 6 *7) ' ' "00002630 

7 FORMAT (14H0 END OF CA.SE ) 00002640 

00 TO 30 ■ 00002650 

444 STOP ‘ ' " ‘00002660 

END 00002670 



.2 CUT MATL'LM . 1 . 710*120 . 62024 


000001 
000002 
0 Oi. CO .I 
u . •; 0 0 4 
V i. 0 0 0 '.5 
OOOOvG 
000007 
000008 
0 00009 . 


SUBROUTINE MATELMCN) 
IMPLICIT REALMS (A-HpO-Z) 
.. DIMENSION .Du 1.(50) »DL2(50) 
X) pDC2 (50 ) > DU ( 50 ) > 


00002680 

00002690 

DEI 1(50) .DEI 2 (50) .051 ( 50) ? 062(50) .DC 1(5000002700, 
DWM ( 50 ) , DKM ( 50 ) pEIMTRX ( 5» 5) .E2MTRX ( 5» 5 )> 0000271 0 


2 AMATRX( 5 ? 5 ) p 3 MATRX( 5 p 5 ) pC v iATRX( 5 » 5 ) »F m ATRX< 5 . 5 ) . DLMTRX ( 5 . 1 ) 

_3 ( 5 »_i ) * DG.AKXJ. 50 .) . 

COMMON 


gouo: 

10 


5 

ElMTRX 

( 5 . 

5 ) 

0 ICO. 



4 

3 MATRX 

( 5 - 

5 ) 

0 ■.. c 0 : 

* C* 


5 

DLMTRX 

(5 > 

i) 

ococ. 



6 

OMGSO 



ococ: 

\X 

C*-j. 


A' i.c ❖ If :Jc .•(: 

:,t * % * 


eofo. 

15 

r~ 

V 

HIM 

INS I ON . 

AND 

COM 

0 .j 0 0 . 

1 \j 

’cVi 


•7 £ v *$ -> * 

-X v * 


000 ..' 

; •» 


d i *: 

LESION 

liREF 

•( 3 ) 


1 DL 1 ( 50 ) p 0 L 2 ( 50 ) .DEU ( 50 ).CEI 2 ( 50 J.OG 1 ( 50 ) pD 62 

2 DC1 (50) _.OC2 (50>_?0TJ (50) .DGAM.X.L50) .OWN (50>_»DKN. 

p E2.TTRX (5.5) » AMATRX (5>5) 

.CMATRX (5.5) .FMATRX (5>5) 

» SHMTRX < 5 ? I > . .SUNG 


( 50 ) 
( 5.Q_). 




:d for 


SHMTRXO 0002720 

00002.730. 

00002740 
00002750 
00002760 
00002770 
00002700 
00002790 
00002800 

i*****-##**- tt*** *#**#**000028 10 

J'ON-L I NE A R _ SPR I NGS . 1 / 7_ .00002820 
fc* *;).*$***:«<•.**•* •.»##:* 000026 30 


LVOO'G 
000019 
■: 00020 
000:121 

u'-.'jC 

>3 «. 0 0 .1 w 

0 90084 
000025 
000026 

000020 _ 
, 11)0029 

0 ' ! « j r 0 

0 0 0 "I .) I 

CO ,T.’iZ 

r. p 0 0 ;o 

C i- . t> C 05 
c ::'*3r,_ 
U./0O37 
C 00008 
0 .0059 _ 
0 0 0 O’ 4 0 
000 O ' 1 *. 

0 * >'(.!. . ; 2 
000043 
0 0 0 -J 4 4 
0 .. 4 4 33 
0 f 0 0 4 6 
0 0 0 ■- ■ > 7 
: . 0 A r. 

0 : 0 049 
CbUOsO 
(•00051 
0CG032 

0 0 0 :>.j 

U • 14 -J ! 


61 


29 

" 62 
68 

45" 

44 

444 

63 


43 

64 

42 


8 S 
668 

26 

27 

65 


T A ( 50 ) . D 5 ETA ( 50 ) j DAN 1 ( 50 ) *D 8 NK 50 > .DPMI ( 50 ) 

I LR ( 3 ) >PO ( 50 ) . P 1 ( 5 0 ) > P 2 ( 50 _)..» P 3 ( 5 0 _)_£ OOO.OFLJ 4 e. 50 . ) 

COMMON DETA.DBETA .DANi »D 5 Ni .DPMI , IDP 
E 1 MTRX ( 2 . 1 ) = OLKN) 

E2MT RX ( 2 p 1 )_= DL2<N)_ 

If (DEI). <N) > 62 . 29. 62 
Li'MTEX ( 4 . 2 ) = 0 . 0 D 0 

GO TO 68 

E 1 M ' T R X ( 4 . 2 ) = 0.500 * D L 1 ( N ) * 0 L 1 ( N ) / D E 1 1 ( N > 

CONTINUE 

IF ( DE 1 2 i N ) j_44 p 45 p 44 

E 2 MTRX C 4 . 2 ) 


= 0.000 

. =0 0 5 D 0 * 0 .L 2 ( N ) <-DL 2 ( N? / 0 £I 2 (N) . 

= -E 1 MTRX ( 4 . 2 ) 

= _ -E 2 MTRX£ 4 ->. 2 ) 


GO TO 444 
E 2 MTRX ( 4 p 2 _) 

CONTINUE 
E 11-17 RX ( 3 . 1 ) 

F. 2 NTRX ( 3 p 1 ) 

IF ( DEI 1 ( M ) ) 64 p 43 .» 64 
E 1 MTPX ( 3 p 2 ) = 0.000 

60 TO 42 

E'lMIRX ( 3 . 2 ) = “DL 1 (NJ/DEI 1 (N) 

CONTINUE 

. I F . ( 0 E 1 2 (. N )_) 88 . 89 ? 8 . 8 . _ 

E 2 MTRX ( 3 . 2 ) = 0 . 0 D 0 
GO 10 888 

E 2 .M'i RX ( 3 ? 2 ) = “OL 2 ( N } /OE I _2 ( N) 

CONTINUE 

IF (DEI 1 (N) ) 26 » 27 » 26 

IF (DGHN) ) 65 . 27. 65 

ElMTRX ( 4 » 1 ) = 0.000 
C -0 TO 25 

E 1 MTP X ( 4 . 1 ) _ =_ ( OL1 ( N ) * (J DL 1 ( N ) *DL1 f N ) }jM_6 ._C D 0*DEIJLJ N ). > ■ 
LIN)}) 


■PCI (N)_/DG1 


:5 CONTINUE 


06 


IF (DEI 2 (N> ) 33 . 34.33 

IF ( OG 2 (IJ ) ) 35 . 34.35 

E 2 .MTRX ( 4 . 1 ) = 0 . 0 D 0 

GO T 0335 _ _ 

iTRX(4,l) = £DL2(N)*C ( DL2 ( N ) *DL2 < N > )/(&. 

1 ( I • ) 5 ) 


CD 0 *DEI 2 (N) ) -DC 2 ( N ) /DG 2 


00002340 
00002850 .. 
00002660 
00002870 
00002880 . 
00002.890 
00002900 
000029) 0. 
00002920 
00002930 
00002940 
00002050 
00002960 
00002970 
00002980 
00002^90 
00003000 
00003010 
00003020 
00003030 
00003040 
00003050 
.00003060 
00003070 
00003080 
00005090 
00003100 
00003110 
00003)20 
00003130 
00003)40 
00003150 
00 C 03160 
00003170 
00003180 
00003190 
00003200 
00003210 
00003220 
00003230 



JL 


CONTINUE 

E1MTR X ( < 4 » 3 ) r -OL1 (N) 

E2MTRX(4*3) - -DL2(N) 

FK4TRX (1*4) = _Dt.'N(N5*5UN6 - OKN ( M ) 

FM«TRX<2*3) =" -OMSSQ*'niJ(N) ) ' 

FMATRXn.,5) - DGANX(N) * OMGSO + OETA ( 4) 

FMATRX (2*5) = DBET A ( N / * OMGSO 

*>!■ V ****** £**<='-:<;>* * *!■.:>!: + >*»<*<:#*!•' $ tftfifif 

OPTIONAL DUMP 

j! *** ** * * * #*4ctir* * * *❖*# + C* *** #**$$* *♦'!'**$* ****** 

IF (lb?'m ) ' 1301 » 1301 * 1300 
WRITE (6*130) N 

FORMAT ( 1H0* 10X11HSTATION N = *2X12 >_ 

CALL PRINTcM ( E 1 MTR X ( 1 V 1 ) > 5 * 5 * 5 * 1 2H El MT R < ) 

CALL F’RINTM (E2.MTRX ( i ? 1 ) ? 5* 5* 5 * 1 2H E 2 MTRX ) 

CALL PRINTM (FMATRX (1*1) *5*5*5* 12H FMATRX ) 

■'IDP( 1 )"= IDPTiT -1 

RETURN 

end 


000032_40_ 

00003250’ 

00003260 

00003270 

00003260 

00003290 

00003300_ 

#********>!:¥>)<>1c*:*000033i0 

00003320 

* »♦»***»»» 0 0 0 0 3 3 3 0_ 

’ 00003340 




/ 

3 ELI PRINT M » i> 7 1C 4 2 Uo 62025 


000001 
000002 
000003 
CO0004 
0 0 C 0 0 5 
000006 
000007 
000006 
0 C 00 02 
000010 
000011 
000012 
000013 
0000.14 
000015 

0 C v < i o 

000017 
3000 18 
U 00 019 
00 CO 20 
000021 
000022 
0 u 0 0 1' 3 

oo or.? 4 

000025 
000026 
000027 
000023 ‘ 
000029 


SUBROUTINE PR I NTH ( A > NR ( NC » MAXR » TITLE) 00003430 

IMPLICIT REAL*8 (A-H(O-Z) 00003440 

C*A*#**********S*********'*$*'*******^********j<.-**:*-*********:):**>;:**>|<********000n3450 

C FORTRAN IV PRINTM “ ' ' ' 00003460 

C SUBROUTINE TO PRINT ANY MATRIX .WITH 2-WORD TITLE 00003470 

_C . .CALL PRINTM ( CMATRX ? .?,» 6.» 8 f 1?H C M ATRX ) EXAMPLEL.C ALL ..UP 00003480. 

0*41**** ******** Ms* *****#***>::*# *****:** *#*******>?* + *3*****>t<i(l**=Sc******i!c00 00 3490 

DIMENSION A < 1 ) * NNED < 3 ) ( T I TLE ( 2 ) 00003500 

,.C... .. CALL.ATHRUZ ( B » 6b -COL ) 000035) 0... 


22 


10 

20 

30 


50 

l2 0 

130 


DATA B/CH COL / 

WRITE (6f 22) TITLE _ 
FORMAT < 1H0 » 52X # 2A6) 


MATRIX TITLE 


-10 


no 50 I=1 »NCp8 
lI=NC-‘+) 

IF < I I~0 ) 20i20 

11=6 . 

00 30 J=1»II 
NUEDC J)=I+J“1 
WRITE (6d20).. 

DO 50 J=1 (NR 
KL=J+(I--1)*MAXR 
l<H=XL+ ( H-l ) *MAXR 
WRITE (6»130) 

RETURN 

FORMATJ 1H0 ( 9Xj_10 ( A6« I4»4X) ) 
FORMAT" ( 4H R0W(I3(5X(lP8Ei4.7) 
END 


_ (.B_> NHEO ( J >_» J.= l# 1 1 ). 


(J( A(K) (K=KL(K4(MAXR) 


00003520 
00003530 
_ 0000354C 
00003550 
00003560 
00003570. 
00005580 
00003590 

00003600 

00003610 

00003620 

00003630 

00003640 
00003650 
_. 00003660 
0000-3670 
00003680 

000036 n 0 

00003700 

000037.10 



/3 


V ELT REPEAT »l»7in420» 62027 


O'JOCOl 
0 C C 002 
DC 0003 
GO 0004 
0CCC05 
OCC 306 
000007 
000008 
0 COO 09 
OOOU) 0 
000011 
o t o 1 2 
"000013' 
000014 
GOO 0 15 
0 01, 01 6 
000017 
0 C 0 C i 6 
GCUOi.9 
G 0 0 0 2 0 
000021 


SUBROUTINE' RePEAt(A.M»B»BB»C»CC»D»Db»E»EE:*F»FF»NR) 00003720 

IMPLICIT REAL*8 (A-HpO-Z) 00003730 

C He*****!**## * « $ t =t= #* •!> # #>)'**•(:* v A'** # N't + +* * ****■ 0 0 0 0 3 7 4 0 

C ' '"repeat READS IN A STATION CARD OR SIMULATES' a” REPEATED" CARO BY 00003750 
C MOVING DATA. 00003760 

C ApDpC tDr EpF _ _ OLD __ _ __A A t 9B p CC : DO .-EE p FF MEW _ __ 00003770 

C ' NR = NUMBER" OF REPEATS FOR A PARTICULAR CAr'd 00003780 

C* * ***;<:**#*#*** £*«#*** >Sc a*## **### + **•.!•#***$**** ***##**:; *******00003790 


IF (NR_rl) _400 p100p100 __ 00003800 

400 READ ( 5 » 3002) A A » BB > CC > HD > EE * FF • NR 00003810 

3002 FORMAT ( 6E12 ° 6 p 1 3 ) 00003820 

C.0 TO _700 00003830 

100 AA=A ' " " ’ 00003840 

BB=8 00003850 

_ __ CC~C 00003860 

DO-D ' " ' 00003870 

EE-E . 00003880 

FF=F 00003890 

' NR=NR-1 " ’ ' 00003900 

700 RETURN 00003910 

__ EN D _00003920 


TRI X 


14:42:35 


5. 


14 : 42:35 


END CUR 



<C ■'*-*£> ■ I ■> 4 v A 4 4 4 4 2 - + ■’ * A * 4 <: 3 A *M 4 3*44 4 4 * * 4 * A4 4 ;■ * 5 -*■ * 4$ A 1 ** *> j, A * &* ** A** * * A A ■* + *9 * * * 4 A ** * * fl * * * *• A * * |MjL ♦*♦♦ A YFl Y ? ** * * : * A * YY * V * 

4 -:<•,; * ■> <=■* ** ** ** * *•-> •& ** * i i-*** 4* * ^tf*#**'**# I SO— 27 •I6!INFORMATT ON-SYSTEMS— DESI GNI15— APR— IQ? 2***^ ■>**«* >>"** ) 5 , *'< r ***^ *♦**'>*<'****** *********’*’ 
*>'*A'4S;A-1*A*A***2 »**A» **3^-^*A**^41 **A.* + *'5i *^A**^&^+'*A***7^**A***t'.***Ai*** 1** V A***2^*^A***3***A*^*4*** A«**5«**A**^6*** A*'**?*^* A**’t'0 * s|,1 t ! A 

£ 2«A AdCDEFGHI JK-MNOPQHSTUVWXYZ) — K->&S* (% i?! »\01234567ftQ* ,/«\ 6C 33 a A3CDEFGHI JKLMIMOPaRSTUVWXYZ)-+<=>*S*( s; ?f ,\ rng3»5 67B9 t »/.\ PC 3 *4 


25 APR 72 P 14:42:3b ___IDEMT=FYEE ACCPUNT=42R'39? CARDS I Ns 1P?„0UT= 0. 

P«6ES= 13p LINES= 496, TIME=00 : 00 : 03 (HMS) 


ALL SOFTWARE ISO PROVIDES OR MAKES AVAILABLE FOR USE» IN ANY FORM 'WHATSOEVER t IS PROPRIETARY 
INFORMATION OF ISD..AND. IS_N0J_T0. J3£ _CQP.I_E.Q_OR. REPRODUCED. WI.T.HOUI _PR.IOR_WRITT.EN . AUTHORIZATION B Y I SP. 

•:> * S V if if * !jc i * >> * -4i i>. * T * # ■* 4 * -> # * >S< * * 4 # * >! * »: * # * 4 * 4' * * 4 * * 4 * 4 * * « 4 * * * * 4 4 * * * * * * * 

w USER NOTICES - APRlITaO “ 1972 *** ~ ~ “ ' 

a) ISO 1103 TERMINAL SERVICE IS SCHEDULED AS FOLLOWS . 

mon ; 07:00 - 24:00 

TJE “ fri 00:00 - 04:oo i o 7 : o o 24:oo ' 

sat : 00:00 - 22:00 

SUM : 04:00-22:00 

~ ( 2.) ‘LASSE-CORE ( LCR )~ PRODUCT! ON JOBS” ARE’nCW BEING ~RUN~0 _ m' AN OVER N I GHT BASIS STARTING AT ditob^AoT DAYT 

(3) ISO NOW HAS AVAILABLE REMOTE-BATCH JOB ENTRY VIA LOW-SPEED TELETYPE COM? ATI BLE_TER VI INALS USING D IAL- UP COMMUNICATION LINES, 
THIS SERVICE HAS BEEN IN USE FOR OVER TWO MONTHS AND IS’ CALLED RON/I, 

THE DIAL-UP TELEPHONE NUMBERS AND TRANSMISSION RATES ARE LISTED BELOW, 

10 CHAR/SEC ‘ ~4 1 5~S 52-4*0 3 5» ~4 1 5-^62"40 3 6 > ""^rr5-562'-5T 36 

30 CHAR/SEC 415-562-4716 ** EFFECTIVE 4/24/72 THIS NUMBER WILL BE CHANGED TO 415-562-4294 ** 

(4) ISO'S SECOND" PUBLIC TERMINAL iNSAN FRANCISCO "is" LOCATED ~AT~«"rCALiFbRNIA''s't7*'‘ ROOM 2555. ' ~ ~ 

(5; BEGINNING 4/24/72 AND AFFECTI VEMONOAY ~ FRIDAY TURNAROUND TIME SHOULD BE_REDUCED BETWEEN THE HOURS OF 2 0:3 0 - l it 3 0 AND 
14': 00" - 16: 00 FOR "USERS SUBMITTING NON-TAPE JOBS WITH RU i TIMES ’ESTIMATED” AT LESS THAN 6 MINUTES.' 

ADDITIONAL INFORMATION ON (2) S (3) IS N OW AVAILABL E TO A LL IN TERESTED USERS BY CONTACTING YOUR SALESMAN AT 435-562-4204. 








1 • - f < - t, - ( » - ‘tl* • fi Jisi-t •- ‘3 - (. # * A i<< *** A '*< * *7 '<* >?v. .»**** Q ***•: A* * *#■ 9 #* + * A*.*** Q ***#&**.* *1** ** A** * *- 2 + **■* A* s ti’ t 

■ .(...u.i.AKtiit.HiM v ISO-27 . 16: IN'FO'JN’ATlrtM-SYiTEMS-OESIGM: 1 5-APR-1972#* ******** ***************************** tv* 
,tA' t3 4®**A***5***A***6***A***7***A***0***A***l***A***2***A***3***A#**4***A**#5***A***6***A***7***A***0«**A 
fc i\^ORSTUvJxYZ)-^<=>as»U:?; »\01234567fi 9! :/. \ QC 3t A ABCnLTgHIJKLMNOPQRSTUWXY Z)-+<= >S $*U : ?; »\0 1234567 R9’ ;/.\ SC Qha 


-■■ rv 72 P 14:42135 _ IDENT=FYEE ACCOUNT- 42399 9 CARDS I N= 1C > OU T= _0 

P/.0- S= 13( LiN£S= 496, TIME=C0 : 00 : 03 CHMS) 




lor/l TO ^ 




